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HEURISTIC  ALGORITHMS  FOR  SOLVING  TWO  DIMENSIONAL 

LOADING  PROBLEMS 


ABSTRACT 


THE  LOADING  PROBLEM  INVOLVES  THE  ALLOCATION  OF  'N'  BOXES*  EACH  HAVING 
A  SPECIFIC  LENGTH*  WIDTH  AND  HEIGHT*  TO  A  PALLET  OF  SPECIFIC  DIMEN¬ 
SIONS.  MUCH  WORK  HAS  BEEN  DONE  ON  SOLVING  THE  MANY  SPECIAL  CASES  OF 
THIS  PROBLEM  WHERE  ALL  BOXES  ARE  OF  THE  SAME  RECTANGULAR  SIZE  AND/OR 
WITH  THE  RESTRICTION  THAT  THE  EDGE  OF  THE  RECTANGLES  FOLLOW  A 

•Guillotine  cut** from  one  edge  of  the  pallet  to  the  other?  the  two 

DIMENSIONAL  CUTTING  STOCK  PROBLEM.  HOWEVER*  THE  GENERALIZED  PROBLEM 
OF  DIFFERENT  SIZED  BOXES  BECOMES  VERY  DIFFICULT  TO  SOLVE.  A  COMMON 
PROBLEM  FOR  THE  U.S.  AIR  FORCE  IS  THE  TRANSPORTATION  OF  EQUIPMENT  IN 
A  LARGE  NUMBER  OF  BOXES*  EACH  OF  DIFFERENT  SIZES.  THESE  BOXES  WOULD 
BE  LOADED  ONTO  PALLETS  FOR  SUBSEQUENT  PLACEMENT  ON  TRANSPORT  AIRCRAFT. 
GENERATING  THE  METHODS  AND  INSTRUCTIONS  FOR  LOADING  THE  PALLETS  IS 
ROUTINELY  ACCOMPLISHED  MANUALLY  AND  RELYS  HEAVILY  ON  THE  EXPERIENCE 
OF  THE  TRANSPORTATION  PERSONNEL  TO  DETERMINE  LOADING  PATTERNS  THAT 
WILL  PRODUCE  GOOD  PALLET  USAGE.  THEREFORE*  UTILIZING  A  COMPUTER  TO 
GENERATE  THE  LOADING  PROCEDURE  WOULD  DE  OF  CONSIDERABLE  PRACTICAL 


BENIFIT  IN  REDUCING  LOADING  TIME.  THIS  REPORT  PRESENTS  SEVERAL 
HEURISTRIC  ALGORITHMS  FOR  SOLVING  LARGE  TWO  DIMENSIONAL  LOADING 
PROBLEMS.  THE  OBJECTIVE  OF  THE  ALGORITHMS  IS  TO  MAXIMIZE  THE  RATIO 
OF  AREA  USED  TO  THE  TOTAL  PALLET  AREA.  THE  PROCEDURES  EMPLOY 
DYNAMIC  PROGRAMMING  AND  A  ^STACKING  PROCEDURE  *ft_FOR  POSITIONING  BOXES 
ON  THE  PALLET.  A  TOTAL  OF  FIVE  ALGORITHMS  ARE  USED*  EACH  HAVING  A 
DIFFERENT  PALLET  TO  BOX  ORIENTATION  AND  USING  VARIOUS  COMBINATIONS  OF 
THE  -STACKING  FNROCEDURE * .  SOLUTIONS  TO  ALL  FIVE  ALGORITHMS  ARE  COM¬ 
PARED  TO  FIND  THE  BEST  SOLUTION  BASED  ON  TOTAL  LOADED  AREA,  THE 
ALGORITHMS  ALSO  PROVIDE  THE  COORDINATES  OF  THE  LOADED  BOXES  ON  THE 
PALLET  TO  ASSIST  IN  THE  ACTUAL  POSITIONING  OF  THE  ITEMS. 


PROBLEM 


1 .  CONSIDER  THE  FOLLOWING  PROBLEM? 

ALLOCATE  A  SET  OF  *N'  BOXES,  EACH  HAVING  A  SPECIFIED 
LENGTH,  WIDTH  AND  HEIGHT,  TO  A  PALLET  OF  LENGTH  *L* 
AND  WIDTH  “W*. 


FACTORS  BEARING  ON  THE  PROBLEM. 


2.  THE  STATED  PROBLEM  CONSISTS  OF  FINDING  THE  BEST  LOADING 

PATTERN  OF  *N*  BOXES  WHICH  YIELDS  .AN  EFFICIENT  UTILIZATION  OF 
THE  PALLET.  THE  APPROACH  TAKEN  TO  SOLVE  THIS  PROBLEM  WAS  TO 
DEVELOP  A  SERIES  OF  HEURISTIC  ALGORITHMS,  EACH  OF  WHICH 
VARY  THE  LOADING  PATTERN  OF  THE  BOXES  AND  THEN  SELECT  THE 
BEST  SOLUTION. 

SINCE  THESE  HEURISTICS  ARE  ESSENTIALLY  A  TRIAL  AND  ERROR 
PROCEDURE  THEIR  FORMULAS  BECOME  VERY  LABORIOUS  AND  TIME  CON¬ 
SUMING  TO  IMPLEMENT.  THUS,  DEVELOPMENT  OF  COMPUTER  CODES  TO 
SIMULATE  THE  LOADING  ALGORITHMS'  BECOMES  A  NECESSITY.  FOR  THIS 
PROBLEM  FORTRAN  LANGUAGE  WAS  USED  TO  DEVELOP  THE  CODES,  ON  A 
PDP- 11/34. 

ASSUMPTIONS 


TO  OBTAIN  INITIAL  SOLUTIONS,  SEVERAL  IMPORTANT 
ASSUMPTIONS  WERE  MADE  WHICH  CONSIDERABLY  SIMPLIFIED  THE 
OVERALL  PROBLEM.  MANY  OF  THESE  ASSUMPTIONS  HAVE  BEEN,  OR 
WILL  BE  ADDRESSED  IN  OTHER  ALGORITHMS  WHICH  CAN  BE  USED  IN 
CONJUNCTION  WITH  THE  SOLUTIONS  PRESENTED  HERE. 

(A)  THE  ORIENTATION  OF  EACH  BOX,  IN  TERMS  OF  ITS  LENGTH, 

WIDTH  AND  HEIGHT  HAS  BEEN  FIXED  PRIOR  TO  ATTEMPTING 
TO  LOAD  THE  BOX  ONTO  THE  PALLET. 

(B)  ALL  BOXES  WILL  BE  CONSIDERED  IN  A  • THIS- END-UP  * 

ORIENTATION  WITH  THE  HEIGHT  DIMENSION  CONSIDERED 
TO  BE  'UP'. 

<C>  THE  WEIGHT  OF  THE  BOXES  WILL  NOT  BE  CONSIDERED 
WHEN  POSITIONING  THEM  ON  THE  PALLET. 

(ID  A  BOX  MUST  ONLY  BE  POSITIONED  WITH  ITS  LENGTH  OR 
WIDTH  PARALLEL  TO  THE  LENGTH  OF  THE  PALLET (SEE 
FIG.  1). 

(E)  THE  SET  OF  BOXES  CONSIDERED  FOR  LOADING  AT  ANY 
ONE  TIME  WILL  DE  LIMITED  TO  NO  MORE  THAN  30. 

THE  FIRST  TWO  ASSUMPTIONS  RESTRICTS  THE  SOLUTION  TO  USING 
ONLY  THE  LENGTH  AND  WIDTH  OF  THE  BOXES  WHEN  ASSIGNING  THEM 
TO  POSITIONS  ON  THE  PALLET  (SEE  FIG.  2>. 

THE  THIRD  ASSUMPTION  ELIMINATES  THE  REQUIREMENT  FOR  CONSIDE 
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ING  WEIGHT  STABILITY  IN  ANY  SOLUTION 


FINALLY/  THE  LAST  ASSUMPTION  IS  BASED  ON  AN  EXAMINATION  OF  THE 
COMPLETE  DATA  SET  CONTAINING  THE  DIMENSIONS  OF  ALL  POSSIBLE 
BOXES  THAT  COULD  BE  LOADED  ON  THE  PALLET  AND  ON  THE  PALLET  SIZE 
OF  104  INCHES  IN  LENGTH  AND  84  INCHES  IN  WIDTH* 


CRITERIA 


THERE  ARE  OF  COURSE  SEVERAL  STANDARDS  BY  WHICH  THE  ALGORITHMS 
CAN  BE  EVALUATES  TO  DETERMINE  THE  OPTIMAL  LOADING  ROUTINE*  HOWEVER/ 
IN  LIGHT  OF  THE  ASSUMPTIONS  THAT  WERE  MADE /  THE  OBVIOUS  CRITERIA 
WOULD  BE  FIRST/  THE  TOTAL  PALLET  AREA  USED,  AND  SECONDLY ,  THE 
NUMBER  OF  BOXES  LOADED. 


DISCUSSION 


IN  DEVELOPING  THESE  SOLUTION  ALGORITHMS  THE  UNDERLYING  GOAL 
WAS  TO  SIMULATE  THE  ACTUAL  STEPS  THAT  WOULD  BE  TAKEN  BY  AN 
INDIVIDUAL  WHO  WAS  FACED  WITH  OF  LOADING  A  PALLET  WITH 


FACED  WITH  THIS  PROBLEM  AND  GIVEN  THE  ASSUMPTIONS  PRESENTED  IN 
PARA*  3/  AN  INDIVIDUAL  COULD  CHOOSE  FROM  SEVERAL  DIFFERENT  PROCEDURE 
IN  ATTEMPTING  TO  ACHIEVE  AN  ACCEPTABLE  LOAD.  LOADING  FROM  THE 
PERIMETER  INWARD  IS  ONE  POSSIBILITY.  ALSO,  DIVIDING  THE  PALLET  AREA 
INTO  SMALLER  SECTION  AND  LOADING  EACH  OF  THE  SECTIONS  CC’JLD  BE  TRIED 
HOWEVER/  THE  PROCEDURE  FOLLOWED  IN  THE  PROPOSED  SOLUTIONS  IS 


WHAT  CAN  BE  TERMED  THE  'STACKING  ALGORITHM* ♦ 


HACKING 


ALGORITHM*  WOULD  TYPICALLY  PROCEED  IN  THE  FOLLOWING  MANNER. 


INITIAL  LOAD 


STEP ( 1 >  *  SELECT  EITHER  THE  LENGTH  OR  WIDTH  OF  THE  PALLET 
AS  THE  'STARTING  SIDE'  TO  DEDIN  LOADING  THE  BOXES* 

THAT  IS/  THE  PALLET  WOULD  DE  ORIENTATED  EITHER  LENGTH¬ 
WISE  OR  UIDTI-I-WISE  (SEE  FIG.  3). 

STEP<2>:  SELECT  A  REFERENCE  OR  STARTING  POINT/  SAY  THE 
UPPER  LEFT  HAND  CORNER.  THIS  IS  WHERE  THE  FIRST  BOX  WILL  BE 
POSITIONED  (SEE  FIG.  3>. 

STEP(3) ♦  THEN  FROM  A  SET  OF  NO  MORE  THAN  30  BOXES/ 

ATTEMPT  TO  LOAD  AS  MANY  BOXES  ALONG  THE  "STARTING 
SIDE*/  BEGINNING  WITH  THE  UPPER  LEFT  CORNER  OF  THE 
FIRST  BOX  COINCIDING  WITH  THE  PALLET  REFERENCE 
POINT*  ALL  BOXES  WOULD  BE  ORIENTATED  EITHER  WITH 
ITS  LENGTH  PARALLEL  OR  PERPENDICULAR  TO  THE  STARTING 
SIDE  OF  THE  PALLET  (SEE  FIG.  4).  THIS  BOX  ORIENTATION 
WILL  BE  MAINTAINED  FOR  ALL  REMAINING  LOADS. 
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STEP(4)J  THE  LOADING  OF  BOXES  WOULD  CONTINUE  UNTIL 
NO  MORE  BOXES  WILL  FIT  IN  THE  REMAINING  SPACE ,  'S'*  ALONG 
THE  “STARTING  SIDE*  * 

STEP<5> l  EVERY  COMBINATION  OF  BOXES  WOULD  BE  TRIED 
SO  AS  TO  MINIMIZE  THE  REMAINING  SPACE,  'S'.  THE  OPT¬ 
IMAL  COMBINATION  OF  BOXES  WOULD  THEN  BE  CHOOSEN  AS  THE 
INITIAL  LOAD. 


AT  THIS  POINT  ONE  MUST  REALIZE  THAT  THE  INITIAL  LOADING 
PATTERN  JUST  FOUND  DOES  NOT  CONSIDER  THE  SECOND 
DIMENSION  OF  THE  BOXES  BEING  LOADED.  THEREFORE  IT,  WILL 
DEPEND  GREATLY  ON  THE  DISTRIBUTION  OF  THE  LENGTHS  AND  WIDTHS 
OF  THE  SET  OF  BOXES  TO  BE  LOADED,  AS  TO  WHETHER  THE  INITIAL 
LOAD  IS  "UNIFORM"  OR  "UNEVEN*. 

LET  US  EXAMINE  THE  MEANING  OF  AN  "UNIFORM"  OR  "UNEVEN"  LOAD, 

AND  THE  EFFECT  EACH  HAS  ON  THE  REMAINING  BOXES  LOADED. 

AS  AN  EXAMPLE.  CONSIDER  THE  SET  OF  30  BOXES  THAT  HAVE  ONLY  TWO 
DIFFERENT  BOX  LENGTHS  AND  WIDTHS  (SEE  COL.  A,  FIG.  5).  AN  INITIAL 
LOADING  PATTERN,  WITH  THE  BOX  LENGTH  PARALLEL  TO  THE  "START¬ 
ING  SIDE",  WILL  LOOK  LIKE  FIGURE  6.  THIS  LOAD  WILL  HAVE  A 
VERY  "UNIFORM"  APPEARENCE  BECAUSE  OF  THE  SIMILAR  BOX  WIDTHS. 

THAT  IS,  THE  BOXES  WOULD  NOT  PRODUCE  A  "STEP*  PATTERN. 

NOW  COMPARE  THE  LOAD  IN  FIGURE  6  TO  THE  INITIAL  LOAD  CREATED  BY 
THE  SET  OF  30  BOXES  SHOWN  IN  COL.  B,  FIGURE  5,  WERE  THE  RANGE  OF 
LENGTHS  AND  WIDTHS  IS  VERY  LARGE.  THIS  LOAD  PRESENTS  A  VERY 
"UNEVEN"  PATTERN  BECAUSE  OF  THE  DIFFERENT  BOX  WIDTHS  (SEE  FIG.  7>. 
THIS  DIFFERENCE  IN  INITIAL  LOAD  PATTERNS  WILL  DICTATE  THE 
REMAINING  LOADING  PROCEDURE. 

LET'S  FIRST  TAKE  A  LOOK  AT  THE  CASE  WHERE  THERE  WAS  AN 
"UNEVEN"  PATTERN  TO  THE  INITIAL  LOAD.  THE  LOADING  OF- THE 
REMAINING  BOXES  WOULD  CONTINUE  AS  FOLLOWS. 


UNEVEN  INITIAL  LOAD 


STEP(<S):  BEGINNING  WITH  THE  FIRST  BOX  IN  THE  INITIAL  LOAD, 
BOXES  ARE  POSITIONED  ALONG  THE  UNDERSIDE  OF  THIS  BOX  IN  ONE 
OF  TWO  methods; 


(A)  BY  THE  PROCEDURE  DESCRIBED  IN  THE  INITIAL  LOADING  SECTION, 
STEPS  (1)  THRU  (5>,  WITH  THE  LENGTH  OF  THE  UNDERSIDE  OF  THIS 
FIRST  BOX  TAMNG  THE  PLACE  OF  THE  PALLETS  STARTING  SIDE 


(SEE  r  TG.  8V 


( B>  FROM  .  “  RL  AINING  BOXES  CHOOSE  THE  LONGESTCOR  IT  THE 

BOX  WID"-i  ORIENTATION  IS  USED,  THE  WIDEST)  BOX  THAT  WILI- 
FIT  UNDER  THE  FIRST  BOX  IN  THE  INITIAL  LOAD.  IF  THERE  IS 
STILL  SPACE  REMAINING  AFTER  THIS  BOX  IS  POSITIONED  THEN 
SELECT  THE  NEXT  LONGEST (OR  WIDEST)  BOX  THAT  WILL  FIT  IN 
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THIS  SPACE  (SEE  FIG.  9), 

STEP(7>:  THE  PROCEDURE  IN  STEP(6)»  EITHER  (A)  OR  (B>  WOULD 
THEN  BE  REPEATED  FOR  EACH  BOX  OF  THE  SECOND  LOAD  AND  FOR 
EACH  SUBSEQUENT  LOAD  PROCEDING  DOWN  THE  SIDE  OF  THE  PALLET 
UNTIL  NO  FURTHER  BOXES  CAN  BE  LOADED. 


STEP(8>;  ONCE  THE  COMPLETED  SECOND  LOAD  IS  IN  POSITION >•  THE  ’ 
THIRD  LOAD  WILL  BEGIN  UNDER  THE  SECOND  BOX  OF  THE  INITIAL 
LOAD.  THE  SAME  PROCEDURE  CHODSEN  IN  STEP(6>  WILL  BE  USED. 

WHAT  STEPS  (6)  THRU  (8)  ARE  DOING  IS  'STACKING*  SUCES3IVE  BOXES 
UNDER  EACH  OTHER  .  HENCE  THE  NAME  "STACKING  ALGORITHM  * »  THIS  STACKING 
PROCEDURE  WILL  CONTINUE  UNTIL  ALL  BOXES  ARE  USED  OR  NO  MORE  BOXES 
WILL  FIT  IN  THE  REMAINING  SPACE  OF  THE  PALLET. 

NOW  CONSIDER  THE  “UNIFORM*  INITIAL  LOAD.  HERE  AN  INTER¬ 
MEDIATE  STEP  CAN  BE  PERFORMED .  BEFORE  THE  'STACKING*  BEGINS. 

UNIFORM  INITIAL  LOAD. 


STEP<6/);  THIS  INTERMEDATE  STEP  IS  TO  REPEAT  STEPS  (1)  THRU 
<5)  USING  THE  REMAINING  UNLOADED  BOXES  WITH  THE  PALLET  *  STARTING 
SIDE*  LENGTH  REPLACED  BY  THE  SUM  OF  THE  LENGTHS (OR  WIDTHS)  OF 
THE  BOXES  IN  THE  INITIAL  LOAD  (SEE  FIG. 10). 

IF  THIS  SECOND  LOAD  ALSO  HAS  A  'UNIFORM*  PATTERN 
THE  PROCEDURE  IS  REPEATED,  HOWEVER.  IF  THE  SECOND, LOAD  IS 
•UNEVEN*  THEN  STEPS (6)  THRU  (8)  ARE  IMMEDIATELY  FOLLOWED. 


UNIFORM  LOAD  ASSUMPTION 


AN  IMPORTANT  MODIFICATION  OF  THE  ABOVE  PROCEDURE  MUST  NOW 
BE  INVESTIGATED, 

WHEN  CONSIDERING  THE  STEPS  TO  FOLLOW  WHEN  CONSTRUCTING  THE 
SECOND  LOAD.  OR  ANY  SUBSEQUENT  LOAD.  EXAMINATION  OF  A  RESULTING 
•UNEVEN*  LOAD  MUST  BE  CONDUCTED.  CAN  THIS  *  UNEVEN "  PATTERN  BE 
ASSUMED  TO  BE  A  'UNIFORM*  LOAD?  THIS  DETERMINATION  WILL  BE  HIGHLY 
SUBJECTIVE.  FOR  EXAMPLE.  IF  AN  INITIAL  LOAD  PATTERN  HAS  BOX 
WIDTH  DIFFERENCES  OF  NO  MORE  THAN  SAY  A  INCHES  BETWEEN  ANY 
TWO  BOXES  THE  LOAD  COULD  BE  CONSIDERED  ’UNIFORM*.  ON  THE  OTHER 
HAND.  THE  REQUIREMENT  MAY  BE  SET  AT  NO  MORE  THAN  2  INCHES.  FOR 
THIS  PROBLEM  ASSUME  A  A  INCH  DIFFERENTIAL  IS  REQUIRED. 

AS  AN  EXAMPLE.  CONSIDER  THE  INITIAL  LOAD  SHOWN  IN  FIGURE  11. 
THERE  ARE  3  BOXES  WITH  VARIOUS  WIDTHS.  AN  UNEVEN  LOAD.  EXAMINATION 
OF  THESE  WIDTHS  INDICATES  THAT  THE  DIFFERENCE  BETWEEN  ANY 
TWO  BOX  WIDTHS  IS  LESS  THAN  A  INCHES.  IN  THIS  CASE  AN  IMAGINARY 
LINE  CAN  BE  BRAWN  CREATING  AN  'UNIFORM*  LOADING  PATTERN  (DASHED 
LINE).  NOW  INSTEAD  OF  IMMEDIATELY  PROCEDING  TO  STEP (6)  WHERE 
•STACKING*  BEGINS.  STEPS(l)  THRU  (5)  CAN  BE  REPEATED.  WITH 
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THE  DASHED  LINE  TAKING  THE  PLACE  OF  THE  PALLET  ‘STARTING  SIDE*. 
THAT  IS*  STEP <6' )  CAN  BE  USED  BEFORE  THE  ‘STACKING*  STEPS. 

THIS  PROCEDURE  CAN  ALSO  BE  APPLIED  TO  ANY  SUBSEQUENT  LOAD. 

ALSO*  THIS  PROCEDURE  CAN  BE  EXTENDED  TO  PORTIONS  OF  A  PARTIC¬ 
ULAR  LOAD.  IF  AN  INTERMIDIATE  LOAD  APPEARS  AS  IN  FIGURE  12 
'BOX  A'  AND  'BOX  B'  COULD  BE  CONSIDERED  AS  ONE  BOX 
WITH  A  COMBINED  LENGTH  OF  XFY .  THIS  IS  BECAUSE  THE  DIFFERENCE 
IN  BOX  WIDTHS  IS  LESS  THAN  4  INCHES.  HOWEVER *  'BOX  C'  CAN  NOT 
BE  INCLUDED  IN  THIS  COMBINATION  BECAUSE  ITS  WIDTH  IS  MUCH  SMALLER 
THAN  'BOX  B'. 

THE  IMPORTANT  POINT  TO  REMEMBER  IS  THAT  BECAUSE  THE  UNUSED 
SPACE  ABOVE  THIS  IMAGINARY  LINE  WILL  BE  WASTED  PALLET  SPACE* 

IT  IS  CRITICAL  TO  DETERMINE  THE  “BEST*  BOX  DIFFERENCE  TO  USE 
IN  DETERMINING  IF  A  ‘UNIFORM*  PATTERN  CAN  BE  ASSUMED.  AGAIN 
THIS  SELECTION  IS  ‘VERY*  SUBJECTIVE.  ANALYSIS  OF  THE  DIMEN¬ 
SIONS  OF  THE  AVAILABLE  BOXES  MAY  GIVE  SOME  INSIGHT  INTO  THE 
PROPER  DIFFERENTIAL  REQUIRED  TO  ENSURE  A  MINIMUM.  OF  UNUSED 
PALLET  AREA. 


COMPUTER  MODEL 


6.  ALTHOUGH  THE  GENERAL  PROCEDURE  JUST  DESCRIBED  IS  FAIRLY 

STRAIGHT  FORWARD*  WHEN  ATTEMPTED  MANUALLY*  THERE  CAN  BE  A 
CONSIDERABLE  AMOUNT  OF  WORK  INVOLVED  IN  FINDING  THE  DEST 
•FINAL*  LOADING  PATTERN. 

THE  COMPUTER  CODES  FOR  THE  HEURISTIC  ALGORITHMS  ARC  DIVIDED 
INTO  TWO  CLASSES.  BOTH  CLASSES  BASICALLY  CORRESPOND  TO  THE  LOADING 
PROCEDURE  OUTLINED  IN  PARA.  5.  THE  ONLY  DIFFERENCE  BETWEEN 
THE  TWO  IS  THAT  THE  FIRST  CLASS  OF  CODES  USES  THE  STACKING  PRO¬ 
CEDURE  DESCRIBED  IN  STEP  (6) (A)*  WHERE  AS  THE  SECOND  USES  THE 
METHOD  OF  STEP(6MB).  BOTH  USE  THE  ‘UNIFORM  LOAD*  ASSUMPTION 
PROCEDURE . 

ALSO*  WITH  THE  FIRST  TYPE  OF  PROCEDURE  THERE  ARE  FOUR 
DIFFERENT  CODES*  CALLED  ‘MODULES*.  EACH  MODULE  USES  A  DIFF¬ 
ERENT  PALLET-BOX  ORIENTATION.  THESE  FOUR  MODULE  ORIENTA¬ 
TIONS  ARE* 

(A)  PALLET  LENGTH  PARALLEL  TO  BOX  WIDTH* 

(B)  PALLET  WIDTH  PARALLEL  TO  DOX  WIDTH* 

(C)  PALLET  WIDTH  PARALLEL  TO  DOX  LENGTH*  AND 
<D>  PALLET  LENGTH  PARALLEL  TO  DOX  LENGTH, 

SEE  FIGURE  13  FOR  A  GRAPHICAL  REPRESENTATION  OF  THESE 
FOUR  ORIENTATIONS, 


THE  SECOND  CLASS  OF  PROCEDURES  CONTAINS  ONLY  ONE  BASIC 
CODE*  WERE  THE  PALLET  LENGTH  IS  PARALLEL  TO  THE  DOX  LENGTH, 
HOWEVER*  THIS  SECOND  CLASS  OF  PROCEDURES  COULD  DE  EXTENDED 
TO  INCLUDE  ALL  FOUR  ORIENTATIONS*  BUT  WAS  NOT  ATTEMPTED 


17 


*  +  +  +  +  +  * 

*44  * 

*44  * 


J/  vfr  si>  •!/  4*  J/  si/  \b  ^  A  O/  xb  vV  t!,  \’.r  >1/  Oi  J/  '1/ 

'P  -P  'T  'r  ^  'I'  T  'M‘  v  /{*  'P  '(■  •  |.  «;»  *t .  fj*  /;• 

*  4  4  4  4  4  * 

*4  4  * 

*4  4  * 


*  4  4  * 

*  4  4  * 

*  4-4  * 


*  4  4  4  4  4  * 

*  <-WIDTH->  * 

*  * 

*  * 


************************** 


< - LENGTH— 


#4-  4  * 

5fe  +  4  * 

#4-  ;  i  * 

*  4-  4-  4-  4-  4-  * 

*  <-WIDTH— >  * 

*  * 

*  * 

*  * 

*  * 

*  * 


******'£**********,:!*** 
< - WIDTH - > 


ORIENTATION  <A> 


ORIENTATION  (B> 


*********************  ************$************* 
*  4  +  4-  4  I  4  4-  4  *  *  4-  4-  4  4  4  4  4  4 


*4-  +  *  *4  4 

*  4  4-  *  #4  4 

*4  4  *  *  4-  4 

*  4  4  4  4  4  4  4  4  *  *4444444  4 

*  < - LENGTH - >  *  *  < - LENGTH - > 

*  *  * 

*  *  * 

*  *  * 

*  *  * 

X!  *  ************************** 

*  *  < - LENGTH - > 

*  * 

*  * 

*  * 

********************* 

< - WIDTH - > 

ORIENTATION  <C>  ORIENTATION  (ID 


FIGURE  13 


rt-ji  n  ■>  *j  ?>  ■>  v- '•>  v-  ■> 


.  V 


1 

3$ 


p| 

S? 


Si 

3 


IN  THIS  SOLUTION. 

NOW  LET  US  LOCK  AT  THE  ACTUAL  COMPUTER  CODES. 


EACH  OF  THE  FIVE  HEURISTICS  ARC  CONTAIN! 


J  Jyj  yi  j£  FIVE 

MODULES (OR  SUBROUTINES)  OF  THE  MAIN  PROGRAM^  •PALLET  LOADING 
ROUTINE  < PLR > “ ♦  THESE  FIVE  MODULES  CONSISTS  OF  SEVERAL 
BASIC  SUBROUTINES »  ARRANGED  SO  THAT  THE  PROPER  LOADING 
ALGORITHM  IS  ACHIEVED*  THE  FOLLOWING  IS  A  LIST  OF  THE  FIVE 
MODULES t  THE  SUBROUTINES  CONTAINED  IN  EACH  AND  THE  CLASS  IT 
BELONGS  TOO. 


MODULE  NAME 

MA3T2A 

MA3T2B 

MAST2C 

MA3T2D 

MAST3A 


SUBROUTINES  USED 
LINFIT, NEWEST, PILE2A,GCRT 
LINFI T, NEWEST »PILE2B, SORT 
L XNFI T, NEWEST, PILE2A, SORT 
LINFIT, NEWEST  ,PILC28, SORT 
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LINE(3):  LOGICAL  UNIT  5  IS  ASSIGN’LL  TC  'TU'  CR  THE  TERMINAL 
LEI NO  USED  DY  THE  USER  OF  THE  PROGRAM.  THE  OUTPUT  OF  THE 
PROGRAM  WILL  BE  DISPLAYED  ON  THIS  DEVICE.  THIS  ASSIGNMENT 
CAN  BE  CHANGED  TO  INDICATE  ANY  OUTPUT  DEVICE  REQUIRED  BY 
THE  USER. 

LINE < A) *  DEFINE  FILE  1  ASSOCIATES  LOGICAL  UNIT  KI.E. 

THE  UNFORMATTED *  DIRECT  ACCESS  FILE*  I.E.  BA MS A ♦ DAT ♦ 

LINE<5>:  INITIALIZES  ' NAREA '  TC  ZERO.  THE  VARIABLE  ' NAREA ' 
WILL  EVENTUALLY  CONTAIN  THE  LARGEST  AREA  LOADED  DY  ANY 
MODULE . 

LINES  ( £>  )  THRU  (17)5  CONTAIN  THE  CONTROL I NG  DC  LOOP  OF  /PLR '  . 

LINE(6)J  IS  THE  DO  STATEMENT.  AS  Tl  !E  INDEX*  U*  IS  INCREMENTED 
FROM  1  TC  5  ALL  STATEMENTS  FOLLOWING  THE  “DO*  WILL  BE  EXECUTED 
5  TIMES.  THIS  ALLOWS  THE  PROGRAM  TO  RUN  THROUGH  ALL  riVT 
MODULES ♦ 

•  TMr /  "?V  ♦  r«rAriC  TUI  rr*nw  i  nrTPAi  MV*"**  1  TOC?  vinwr.rr.  nr  ta 

I.AhC  \  /  /  4  i\lL.t*1.l.»0  A  IT  I  ISU»  •  LuulAWnu  Ul\j.  I  1  I  MU  iW  II  jL»  C  l\  Ul*  I  U 

T>*r  •  pArtr'*.  AHr.  pTiirC  MAOTAr.1  P  /  VI  /  Yiirn  l|Ai  »  »r* 
a.*  L.  i.urivC.1^  hiu*  1>a  vuJ  v»~n\ x  n  £•<_£.  i>c  i  l  UO  Vm-uu  ♦ 

f  TMr  f  O'  ♦  tmttt  ai  T7EO  /  Anr  a  /  to  ~t  r~r.r*  t»  it  n  tc  r.rnMTr»rr«  r,r-r-nr.r* 

L  A  I U-  \  U  /  •  IlVA  1  APLAA.U  J  |'|l\Cri  I  i.fLlVU  *  I  I  1  A  O  AO  I  \  I—  '-t  t-»  J.  I  \  I. .  X.*  Jit  l.  I  Ui\C 

r  MOT.t  ll  rr  try  c-»»  »M  r»r^Ai|Or  ^  t  » Iir*  otr  /acCa,/  iiti  I  r«»“*  AiiAUrTTi 

i-1'M./N  iiuL'Oi.i~  x  f\uiv  I  *  *i—  VnuuL  *./»  rliM-n  wxl.l.  be.  oflniu^C.L' 

rirr*rMr,TMn  r>* j  TMC*  !  pAr.Tiir*  nnilTnir  iiprTi  /ai?*ita/  r  .->•  Iif'rn 

IN'!  JiliL.  LunuiixU  r\ww  i  ihu  JjLi.**  ni\Cn  lJ  U/jLju*  I  lx 

OrTifOM  rur  A»>*r  a  i  nAT»rn  r,  v/  17A01..1  wnr.m  r* 

rsc.  •  U«\|\  Inc.  rti\»-n  i*  •  C.r»w»i  iiua.»ul.Ci 

«* 

LINES (9)  THRU  (13)1  THESE  STATEMENTS  CALL  THE  APPROPRIATE 
MODULE  DEPENDING  ON  THE  CURRENT  VALUE  OF  THE  DC  STATEMENT 
INDEX  J.  THE  VALUE  OF  'N'  AND  'AREA'  ARE  THE  ARGUMENT  OF 
EACH  MODULE  AND  HAVE  THE  INITIAL  VALUES  ASSIGNED  IN 


LINES < 14 )  THRU  (16):  IN  THESE  LINES  THE  AREA  LOADED  DY 
EACH  MODULE  'AREA'  IS  COMPARED  TO  THE  CURRENT  VALUE  OF 

✓  XI A  c»rr  «\  /  t  IT  /  A  r#  rr  a  r  r  ry  I  AC'M.rp  T  *•  I  •  V  nuAC'fA  /  T  x  T  •>  OAiicrj 

»  x »  niVCn  lu  uhixUuA  lilitiX  irmu-ri  JL  1  J.u  JnVLti 

r. v/  a  oot  ovi  ▼  *,ri  tto  ijai  •  »c*  tp  /\iAr»r*A/  ai  on  tut  m* iwr.ro  pr 

jl*  i  rU  JiUrfxtxU  x  I  J  Vru-Uu  •  L»  iNrtPi-ri  »  m-vl-x  I  i  li~  uu.'nm  l.»i 

rnr  Moniii  rr  that  r.r.nrti  ir^i“rj  TMTC!  I  ApArr*  AOC*  iiti  i  r,f  OAitr-r, 
iilC.  iiuyuLu  ••Imi  I  i\ux‘uuu.v  I  ilxvi  LruvUuiV  rnu-n  w.u.l  lh..  vHTVuiJ 

AG  'OPT  7  ♦  If*  /  ARC! A  '  IS  SM  AL  LER  Tl  I  AM  7  •  <  A  R  E  A  '  THE  CURRENT 
VALUE  OF  'NAREA'  AND  'OPT'  IS  RETAINED. 


LINE < 17) :  IF  'J'  IS  LESS  THAN  5  RETURN  TO  LINE  (6)  AND 
REPEAT  ALL  THE  STATEMENTS  IN  THE  DO  LOOP,  IF  'J'  IS 
EQUAL  TO  S  PROCEED  TO  THE  NEXT  LINE. 

LINE ( 10 )  AND  (19):  WHEN  THE  DO  LOOP  J.S  COMPLETED*  THAT  IS 
WHEN  IT  HAS  PERFORMED  ALL  5  MODULES  LINES (10)  AND  <19) 
WILL  WRITE  THE  VALUES  OF  'NAREA'*  THE  LARGEST  LOADED  AREA 
AND  'OPT'*  THE  CCORESPCNDING  OPTION  TO  THE  OUTPUT  DEVICE 
SPECIFIED  IN  LINE'S). 


THE  NEXT 


T  OF  CODES  TO  DE  EXAMINED  WILL  BE  THE  FIVE 


MODULES  THAT  ARE  CALLC 
TWO  CLASSES  OF  MODULES 
FOUR  CLASS  1  MODULES  F 
CHANGES  IN  THE  PALLET - 
WILL  BE  DESCRIBED  IN  D 
THREE  CLASS  1  MODULES 
DIFFERENCES  RELATED  TO 
MODULE  5/  'MACT3A' 


D  IN  ' PLR '  ♦  REMEMBER r  1 
/  CLASS  1  AND  CLASS  2, 
GLLOW  THE  SAME  PROCEDURE 
BOX  ORIENTATION/  ONLY  M£ 
ET AIL.  DISCUSSION  Or  TV 


WILL  ccnsi: 


OF  POINTIN'. 


>INCE  At. 
■  WITH  0 
"JLC  'MA 
I  REMAIN 
OUT  THE 


WILL  THEN  HE  DISCUSSED  IN  BE 


JULY 
iST2A ' 
FINS 

STATION* 

u:l. 


MODULE  MAST2A 


MODUL 


p  'MA3T2A '  IS  CALLED  UPON  TO  LOAD  'N'  BOXES  ONTO 


LINE<1>:  THIS  IS  THE  MODULE  NAME  AND  THE  ARGUMENTS  'N'  AMD 
'AREA'*  WHEN  ' MAST2A '  IS  CALLED  BY  ' PLR ' /  'N'  AND  'AREA' 
ARE  ASSIGNED  THE  VALUES  THEY  WERE  GIVEN  IN  'PLR', 

LINE <2>  t  ESTABLISHES  ALL  VARIABLES  AS  INTEGER, 


TO  BE  A  MAXIMUM  OF  30  LOCATIONS.  REMEMBER  /  NO  MORE  THAN  30 
BOXES  CAN  BE  LOADED  AT  ONE  TIME.  THE  ARRAYS  ARE  GENERALLY 
DIVIDED  INTO  SETS  OF  TWO,  FOR  EXAMPLE/  'BOXLENOSO  AND 
BCXUTHU)  REFER  TO  THE  LENGTH  AND  WIDTH  OF  ONE  OF  THE  BOXES 
CONTAINED  IN  THOSE  TWO  ARRAYS.  THE  EXCEPTION  TO' THIS/  IS 
THE  ARRAY  'COOR'  WHICH  WILL  CONTAIN  THE  COORDINATES  OT  EACH 
BOX  THAT  IS  LOADED. 


LINE ( 4 ) J  THE  DATA  STATEMENT  INITIAL!; 
AND  ARRAYS  TO  ZERO. 


r-O  rrMrr.Ai  pTMn.!  I  I  n  n  y  a  i>» 


THIS  INITIAL  VALUE  OF  POINT  IS  THE  COORDINATE  OF  THE 
PALLET  'REFERENCE  POINT',  THIS  'REFERENCE  POINT'  IS 
LOCATED  IN  THE  UPPER  LEFT  HAND  CORNER  OF  THE  PALLET, 
ALSO /  THIS  VARIABLE  IS  USED  TO  KEEP  TRACK  OF  THE  POSI 
OF  EACH  OF  THE  BOXES  AS  THEY  ARE  LOADED  ON  THE  PALLET 
THE  ' REFERENCE  POINT'  VALUE/  101/  IS  BASED  ON  THE  COO 
SYSTEM  SHOWN  IN  FIGURE  14,  THE  LAST  TWO  NUMBERS  OF 
'POINT'  IS  THE  Y-CODRBINATE  MEASURED/  IN  INCHES/  DOWN 
THE  'REFERENCE  POINT'.  THE  FIRST  THREE  NUMBERS  IN  'P 
IS  THE  THE  X -COORDINATE  MEASURED/  IN  INCHES/  TO  THE  R 
THE  REFERENCE  POINT.  FOR  EXAMPLE/  THE  PALLET  'REFERE 
POINT'  IS  101/  SO  THIS  POINT  IS  EXACTLY  THE  UPPER  LET 
CORNER  OF  THE  PALLET. 


T I  ON 

• 

r*v.  t  m  \  *r  r- 

INiUlO  ♦  I  k  . 

r-  r.OU 
I  i  vo»  I 

PINT' 

I CUT  OF 
NCE 

T  HAND 


L I NE ( 6 )  AND  (7>J  THIS  DO  LOOP  WILL  READ  INTO  ARRAYS  'DL'  AND 
' BW '  THE  LENGTHS  AND  WIDTHS  Or  THE  'N'  BOXES. 


LINE (8) V  THE  SUBROUTINE  'SORT'  IS  CALLED.  THE  ARGUMENTS  ARE 
THE  ARRAYS  'PTLGM ' /  WITH  ALL  ELEMENTS  EQUAL  TO  ZERO/  AND 
THE  NUMBER  30. 


* 


WHEN  THE  SUBROUTINE  RETURNS,  THE  ARRAY  'Id.'  WILL 
BE  UNCHANGED.  BUT  ' PTLGM '  WILL  CON  I  AIN  A  GET  OF  POINTERS 
THAT  WILL  ALLOW  SORTING  OF  THE  ARRAY  'BL'  IN  DESCENDING 
VALUES  OF  LENGTH.  'STLGH'  WILL  HAVE  THE  VALUE  OF  THE  BOX 
LENGTH  IN  'BL '  FROM  WHICH  THE  ARRAY  ' PTLGM'  WILL  START 
ITS  SORT. 

LINE(?>:  SETS  'M'  EQUAL  TO  'STLGH'. 

LINE (10)  THRU  (15):  THIS  SECOND  DO  LOOP  NOW  MAKES  USE  OF 
THE  POINTER  ARRAY  ' PTLGH'  TO  SORT  'BL',  IN  THE  FOLLOWING 

manner; 

STARTING  WITH  THE  BOX  LENGTH  IDENTIFIED  DY  'DL(M)  ' 

THIS  VALUE  IS  COPIED  INTO  'BOXLEN(K)'  AND  'MBL(K)',  WHERE  'K'  IS 
THE  INDEX  OF  THE  DO  LOOP,  ALSO,  'BW(N)'  IS  COPIED  INTO 
'DOXWTH(K) '  AND  'MDW(K)', 

NEXT,  THE  VALUE  OF  'M'  IS  CHANGED  TO  THE  POINTER 
VALUE  ASSOCIATED  WITH  'DL(M)'.  ' PTLGM (M> '  IS  THEN  USED 

TO  FIND  THE  NEXT  SMALLEST  BOX  LENGTH  IN  'BL' .  THE  DO  LOOP 
THEN  RETURNS  TO  LINE(IO)  AND  REPEATS  THE  OPERATION.  THE 
BO  LOOP  FI NISI  13  WHEN  ALL  'N'  BOXES  HAVE  BEEN  SORTED. 

LINE (16):  'A'  IS  GIVEN  THE  VALUE  OF  'N'.  THIS  IS  DONE 
BECAUSE  'N'  WILL  BE  CHANGED  LATER  IN  THE  PROGRAM, 


LINE ( 17 ) :  'SMALL' 


SET  EQUAL  TO  4,  WHICH  IS  THE  VALUE 


OF  THE  SMALLEST  DOX  LENGTH  FROM  THE  TOTAL  DATA  SET  OF  BOXES 


THIS  VALUE  WILL  BE  USED  THROUGHOUT  THE  PROGRAM 
DIFFERENTIAL  VALUE  USED 


;u-,n  AS  THE 
IN  MAKING  A  UNIFORM  LOAD  ASSUMPTION 


C 


PARA  6,  UNIFORM  LOAD  ASSUMPTION) 


LINE(IO):  SUBROUTINE  'NEWLST'  IS  CALLED » 
FOR  EXPLANATION  OF  THE  ARGUMENTS  FOR  Till! 


l  i  1 0  N  E  E  3 
SUBROUTINE.  THE 


ARGUMENT  VALUI 


SENT  TO  'NEWLST'  BY  THIt 


N 

104 


SPACE 

A 

BOXLEN 

BOXWTII 

LBOX 

POINT 


NUMBER 

PALLET 

PALLET 

4 

TRACK 

N 

MBL  = 
MBW  = 
WBOX  = 


OF  BOXES  TO  BE  LOADED 

LENGTH 

WIDTH 

=  WIDE  =  N1  =  STPT  =  0 

ARRAYS  OF  'N'  BOX  LENGTHS 
ARRAYS  OF  'N'  BOX  WIDTHS 
TLBOX  =  TWBOX  ~  COOR  =  ARRAYS  WITH  ALL  'N' 

ELEMENT  EQUAL.  TO  ZERO 


=  101 


LOADING  OPERATION  DESCRIBED  IN  THE  FIRST 
PART  OF  PARA  5.  THAT  IS,  'NEWEST'  WILL  PERFORM  THE  INITIAL 
LOAD  AND  AS  MANY  LOADS  THEREAFTER  IN  ACCORDANCE  WITH  STEPS ( 1 > 
THRU  (5)  AND  STEP  (6'),  UNTIL  AN  "UNEVEN"  LOAD  IS  OBTAINED. 


LINE(19):  AFTER  RETURNING  FROM  'NEWLST'  A  TEST  IS  MADE  TO  SEE 
ALL  THE  BOXES  HAVE  BEEN  LOADED.  IF  THERE  ARE  NO  MORE  BOXES  TO 
LOAD  THE  RETURNING  VALUE  OF  'N'  WILL  BE  ZERO  AND  THE  PROGRAM 


IF 
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WILL  PROCEED  TO  LINE(22>*  WHICH  BEGINS  THE  OUTPUT  PROCESS. 

IF  'N'  IS  NOT  ZERO  THEN  THE  PROGRAM  EXECUTES  THE  NEXT  LINE . 

LINE(21>:  HERE  THE  SUBROUTINE  'PILE2A '  IS  CALLED  TO  BEGIN  THE 
"STACKING-  PORTION  OF  THE  PROGRAM ♦  THE  ARGUMENTS  CONTAIN 
THE  FOLLOWING  VALUES t 

BOXLEN  =  AN  ARRAY  OF  'A'  ELEMENTS  EACH  WITH  A  VALUE  OF 
A  BOX  LENGTH.  HOWEVER *  THOSE  BOXES  THAT  HAVE 
BEEN  LOADED  BY  SUBROUTINE  ' NEWLST '  OR  CAN  NOT 
FIT  IN  THE  REMAINING  SPACE  ON  THE  PALLET  *  WILL 
HAVE  NEGATIVE  VALUES. 

BOXWTII  ~  AN  ARRAY  OF  / A'  ELEMENTS  EACH  WITH  A  VALUE  OF 
A  BOX  WIDTH. 

104  =  PALLET  LENGTH. 

N  =  NUMBER  OF  BOXES  NOT  LOADED  BY  ' NEWLST ' . 

LBOX  =  ARRAY  OF  (A~N)  ELEMENTS  EACH  HAVING  THE  VALUE 

OF  A  BOX  LENGTH  OF  THOSES  BOXES  LOADED  BY  'NEWEST'. 

WBOX  =  ARRAY  OF  (A-N)  ELEMENTS  WITH  THE  BOX  WIDTHS  OF  THOSE 
BOXES  LOADED  BY  'NEWLST' ♦ 

TRACK  =  A-N  =  NUMBER  OF  BOXES  LOADED  BY  'NEWLST'. 

SMALL  =  4 

WIDE  =  LARGEST  PALLET  WIDTH  REMAINING  AFTER  BOXES  WHERE 

LOADED  BY  'NEWLST'.  THIS  DOES  NOT  INCLUDE  THE  "LAST* 
ROW  OF  BOXES*  IF  MORE  THAN  ONE  LOAD  IS  IDENTIFIED  BY 
'NEWLST' . 

MBL  =  ARRAY  OF  'N'  BOX  LENGTHS  >  ALL  POSITIVE  IN  VALUE. 

MBW  =  ARRAY  OF  'A'  BOX  WIDTHS*  ALL  POSITIVE  IN  VALUE. 

COOR  =  ARRAY  OF  'A'  ELEMENTS,  THE  ENTRIES  IN  THIS 

ARRAY  COORESPONDING  TO  THE  BOXES  LOADED  BY  'NEWEST' 
WILL  HAVE  A  5  DIGIT  NUMBER  REPRESENTING  THE  COOR¬ 
DINATE  OF  THE  UPPER  LEFT  CORNER  OF  THE  BOX,  ALL 
OTHER  ELEMENTS  WILL  REMAIN  ZERO. 

POINT  =  COORDINATE  OF  THE  LAST  BOX  TO  BE  LOADED  BY  'NEWEST'. 

A  =  ORIGINAL  NUMBER  OF  BOXES?  A  =  TRACKhN. 

SUBROUTINE  PILE2A  PERFORMS  THE  "STACKING"  PROCEDURE  DESCRIBED 
IN  PARA  5*  STEPS  <6)<B ) *  (7)  AND  <0>*  USING  ONLY  THOSE  BOXES 
NOT  LOADED  BY  'NEWEST'. 

'PILE2A'  LOADS  BOXES  WITH  THE  BOX  LENGTH  PARALLEL  TO  THE  PALLET 
'STARTING  SIDE'.  LATER  ' PILE2B '  WILL  BE  USED  TO  LOAD  THE  BOXES 
PERPENDICULAR  TO  THE  'STARTING  SIDE', 

LINE (24)  THRU  <27)5  IN  THIS  DO  LOOP  THE  PROGRAM  OUTPUTS  THREE 
LISTS*  EACH  WITH  'N'  ELEMENTS,  THESE  LISTS  WILL.  CONTAIN  THE 
BOX  LENGTHS*  WIDTHS*  AND  COORDINATES.  A  SAMPLE  OUTPUT  IS 
SHOWN  IN  FIGURE  14.  THE  LENGTH  OF  THOSE  BOXES  THAT  HAVE 
BEEN  LOADED  ARE  SHOWN  AS  NEGATIVE  VALUES. 

LINE (28)  THRU  (33) l  THIS  FINAL  DO  LOOP  COMPUTES  THE  VALUE 
Or  'AREA'  LOADED  BY  MA3T2A  AND  THE  TOTAL  NUMBER  OF  BOXES  USED, 

LINE ( 34 )  AND  (35) l  OUTPUTS  THE  RESULTS  COMPUTED  IN  LINES 
(23)  TO  (34), 


L.  I  HE  (  36 )  t  THE  COMPUTER  RETURNS  TO  THE  MAIN  PROGRAM,  '  r-LR '  , 

with; 

N  =  NUMBER  OF  BOXES  LOADED 

AREA  =  TOTAL  AREA  COVERED  BY  THE  LOADED  BOXES* 


ECU  MODULES  MAST2B,  MAST2C,  MAST2D 


EACH  OF  THESE  THREE  MODULES  EXACTLY  DUPLICATES  THE  PRO 
CESS  DESCRIBED  IN  CBS  *  HOWEVER,  IN  EACH  OF  THESE  MODULES 
THE  PALLET-BOX  ORIENTATION  IS  DIFFERENT*  BELOW  IS  A  LIST 
OF  CHANGES,  BY  MODULE,  THAT  COORESPONDS  TO  THE  CHANGE  IN 
PALLET-BOX  ORIENTATION*  REMEMBER,  'MAST2A'  HAD  A  PALLET 
LENGTH  OF  104  INCHES  AND  WIDTH  OF  84  INCHES,  WITH  THE  BOX 
LENGTHS  PARALLEL  TO  THE  PALLET  LENGTH* 

MAST2D 


THE  ONLY  CHANGE  IN  THIS  MODULE  IS  THE  USE  OF  SUBROUTINE 
/PILE2B/ ,  WHICH  WHEN  CALLED  UPON  TO  'STACK7  BOXES  WILL 
ORIENTATE  THE  BOX  WIDTHS  PARALLEL  TO  THE  PALLET  LENGTH. 

MA3T2C 


IN  THIS  MODULE  THE  PALLET  IS  ROTATED  90  DEGREES  SO  THAT 
ITS  LENGTH  IS  NOW  84  INCHES  AND  ITS  WIDTH  IS  104  INCHES, 
'PILE2A'  IS  USED  IN  THE  'STACKING'  PROCEDURE,  WHICH • PUTS 
THE  BOX  LENGTHS  PARALLEL  TO  THE  PALLET  WIDTH, 

MAST2D 


FINALLY,  THIS  MODULE  WILL  USE  A  PALLET  WIDTH  OF  04  INCHES 
AND  ORIENTATE  THE  BOX  WIDTHS  PARALLEL  TO  THE  PALLET  WIDTH 
USING  SUBROUTINE  ' PILE2D ' * 


MODULE  MAST3A 


MODULE  ' MAST3A'  REMEMBER  IS  A  CLASS  2  ROUTINE.  HOWEVER 
'MAST3A'  IS  VERY  SIMILAR  TO  ' MAST2A' ♦  LINES  (1)  TO  (1?) 

AND  LIMES  (22)  TO  (37)  IN  'MA3T3A'  HAVE  EXACTLY  THE  SAME 
INTERPRETATION  AS  THOSE  LINES  IN  ' MAST2A ' ♦  THE  MAJOR 
DIFFERENCE  IN  THE  TWO  MODULES  IS  IN  LINE  (21),  IN  ' MASTS A 
SUBROUTINE  'PILE4 '  IS  USED  INSTEAD  OF  ' PILC2A ' .  WITH  'PILE 
THE  PROCESS  DESCRIBED  IN  PARA  5,  STEPS  ( 6 > ( B > ,  (7),  AND  (8) 


,v.\ 


*  %■ 


A  DETAILED 
ErPECT  ON  THE 


THIS  DIFFERENCE  IN  LOADING  PROCEDURE  WILL 
DIFFERENT  FINAL  LOADING  PATTERN. 
EXPLANATION  OF  THE  SUBROUTINE  ' PILE4 '  AND  IS 
LOADING  PROCEDURE  CAN  BE  FOUND  IN  SECTION  CPU 


NOW »  LETS  EXAMINE  THE 
FIVE  DIFFERENT  MODULES. 


MANY  SUBROUTINES  THAT  MAKE  UT 


HIE  FIRST  OF  THESE  SUBROUTINE 


THE 
;  IS 


NEWEST 


CE3 


/COROUTINE  NEWLST 


'NEWLST' 

TO  ALL  FIVE 
THE  INITIAL 
THRU  (5>  *  REPEATING  AS  NECESSARY 


THE  SUBROUTINES  AND 


SUBROUTINE 


IS  THE  LONGEST  OF 
MODULES.  'NEWLST '  IS  THE 
LOADING  ROUTINE  DESCRIBED  IN  PARA 

IN  ACCORDANCE 


COMMON 


PERFORMS 
5/  STEPS  (1) 

WITH  THE 


THAT 

-fir* 


UNIFORM  LOAD'  ASSUMPTION 


PiAHA 
rii  Vri 


line<i>:  tm: 

MENTS .  THE 
MODULE  THAT 


3  IS  THE 
VALUE  OF 


SUBROUTINE  NAME 
THESE  ARGUMENTS 


AND  A  LIST  'OF  I" 
WERE  DETERMINED 


IN  THE 


LINE (2) t 


ALL  VARIABLES  AS  INTEGERS. 


L I NE ( 3 ) J 
MAXIMUM  OF  30 
EVIDENT  LATER 


C[-r/ 


ELEMENTS. 
IN  THE 


THE 


DECLARES  ALL 
USE  OF  EACH  ARRAY 


0  HAVE  A 
WILL  BECOME 


LINE ( 4 >  J  GIVES 
THE  PALLET. 


’  NEWWTH'  THE  VALUE  OF  'WIDTH'/  THE  WIDTH  Of 


LINE ( 5 )  THRU  (12) J  THE  FIRST 
BOXES  TO  DETERMINE  WHICH  ONE! 

FIRST/  THE  'BOXLEN' 
IT  IS  NEGATIVE.  THAT  IS/ 


IF 

IF 

OF 

IF 

TO 


DO  STATEMENT  EXAMINE 
>  HAVE  BEEN  LOADED. 
VALUE  OF  THE  BOXES  I 
HAS  THE  BOX  Al. 


ALL  'N' 


TESTED  TO 
READY  BEEN  LOADED 


THE 

THE 

THE 

cirr 


'NEWWTH 


'BOXLEN'  VALUE  IS  NEGATIVE  THEN  THE  REMAINING  PORTION 
LOOP  IS  DISREGARDED  AND  THE  NEXT  BOX  IS  EXAMINED.  BUT 
'BOXLEN'  VALUE  IS  POSITIVE  THE  'BOXWTH' 

IF  THE  BOX  WILL  FIT  IN  THE  REMAINING  PALLET 
IF  THE  'BOXWTH'  WILL  FIT/  THE  BOX  IS  Dio 


VALUE  IS  TESTED 


WIDTH/ 

/REGARD! 


:d 


AND 

'BO 


THE 

aWTH' 


LOOP  PROCEDES  TO  TEST  THE  NEXT  BOX. 
IS  TOO  LARGE  THE  LOOP 
THUS/  IF  THE  'BOXLEN'  VALUE  IS 
AVAILABLE  FOR  LOADING)  BUT  THE 
BOTH  THE  'BOXLEN'  AND  'BOXWTH' 

INDICATING  IT  CAN  NOT  BE  USED 


IF  HOWEVER/  THE 
CONTINUES  TO  THE  NEXT  STATEMENT. 
NOT  NEGATIVE  (MEANING  IT  IG 
'BOXWTH'  IS  LARGER  THAN  'NEWWTH' 
VALUES  ARE  MADE  NEGATIVE/ 

IN  THE  LOADING  ROUTINE. 


LINE (13)J  'SPACE' 
BE  USED  WHEN  THE 


IS  GIVEN  THE 
INITIAL  LOAD 


VALUE  OF  ZERO. 

[5  PERFORMED  (SEE 


'SPACE'  WILL 
LINE(14> ) . 


LINE ( 14 ) 


.i,  CALLED.  '  LINE IT  '  SEEKS  TO 
FIT  AS  MANY  BOXES/  FROM  A  LIST  OF  'N'  BOX  LENGTHS/  'BOXLEN'/ 
INTO  A  I. INEAR  SPACE  OF  SIZE  'LENGTH'.  ONLY  THOSE  BOXES  WITH 
POSITIVE  'BOXLEN'  VALUES  WILL  BE  CONSIDERED.  THE  OPTIMAL 
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COMBINATION  OF  BOXES,  THAT  MINIMIZES  THE  SLACK  SPACE  'SPACE', 
IS  CHOOSEN.  THE  BOXES  IDENTIFIED  IN  THIS  OPTIMAL  COMBINATION 
WILL  HAVE  THEIR  'BOXLEN'  VALUES  MADE  NEGATIVE* 

LINES  (15),  (16)  AND  (17) :  INITIALIZES  THE  VARIABLES  'COUNT', 
'TRACK'  AND  'HUM'  TO  ZERO. 

LINES(IO)  THRU  (35):  IN  THIS  DO  LOOP  ALL  'N'  BOXES  ARE  TESTED. 
EACH  BOX  WILL  FALL  INTO  ONE  OF  THE  FOLLOWING  CATEGORIES: 

(A)  BOX  HAS  ALREADY  BEEN  LOADED,  OR  WILL  NOT  FIT  IN 
AN  AREA  OF  DIMENSIONS  'LENGTH'  BY  'NEWWTH' . 

(B)  THE  BOX  HAS  BEEN  IDENTIFIED  BY  SUBROUTINE  'LINFIT' 

AS  PART  OF  THE  OPTIMAL  INITIAL  LOAD. 

(C)  THE  BOX  IS  STILL  AVAILABLE  FOR  USE. 


WHEN  THE  BOXES  ARE  TESTED,  IFt 

( AA>  THE  BOX  LENGTH  AND  BOX  WIDTH  ARE  BOTH  NEGATIVE  THE 
THE  BOX  FALLS  IN  CATAGORY  (A). 

(BB)  THE  BOX  LENGTH  IS  NEGATIVE  ANB  THE  BOX  WIDTH  IS 
POSITIVE  THE  DOX  BELONGS  TO  CATAGORY  (B). 

(CC)  BOTH  BOX  LENGTH  AND  WIDTH  ARE  POSITIVE  A  CATAGORY 
(C)  BOX  IS  IDENTIFIED. 


IN  THE  CASE  OF  CATEGORY  (B)  BOXES,  THE  ABSOLUTE  VALUE 
OF  THE  BOX  LENGTH  AND  WIDTH  ARE  STORED  IN  ARRAYS  'LBOX', 
'TLBOX'  AND  'WBOX',  'TWBOX'  RESPECTIVELY i  LINES  (23),  (24), 
AND  (27),  (28).  THE  NUMBER  OF  BOXES  IS  COUNTED  BY  INCREMENT¬ 
ING  'TRACK'  AND  'Ni',  LINES  (23)  AND  (26). 

WHEN  A  CATEGORY  (C)  DOX  IS  FOUND  THE  RESPECTIVE  BOX  LENGTH 
AND  WIDTH  IS  STORED  IN  'LLBQX'  AND  'WWBOX'.  THE  TALLY  OF 
THESE  BOXES  IS  KEPT  BY  INCREMENTING  'NUM', 

LINE(36>:  ' N '  IS  GIVEN  THE  VALUE  OF  'NUM',  THE  NUMBER  OF 
BOXES  THAT  REMAIN  TO  BE  LOADED. 

LINE(37>  *  IF  NO  BOXES  WERE  IDENTIFIED  FOR  THE  INITIAL 
LOAD  BY  'LINFIT',  THE  PROGRAM  RETURNS  TO  THE  CALLING 
MODULE. 

LINE ( 3?) :  IF  THE  NUMBER  OF  BOXES  REMAINING  AVAILABLE  FOR 
LOADING  IS  ZERO,  THEN  THE  PROGRAM  WILL  RETURN  TO  THE 
CALLING  MODULE. 

LINE (41).  INITIALIZES  'NEULEN'  TO  THE  LENGTH  OF  THE  FIRST 
BOX  IDENTIFIED  BY  'LINFIT'. 

LINE(42> ♦  'WIDE'  IS  GIVEN  THE  VALUE  OF  'NEWWTH'. 

LINE(43) ♦  A  TEST  IS  MADE  TO  SEE  IF  'LINFIT'  IDENTIFIED 
ONLY  ONE  BOX.  IF  THIS  IS  THE  CASE  THE  PROGRAM  PROCEEDS 
TO  LINE  (50) r  OTHERWISE  THE  PROGRAM  GOES  TO  THE  NEXT 
STATEMENT. 


I 
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LINES  (47)  THRU  (55)  J  IN  THIS  HO  LOOP  ALL  THE  BOXES  I BENT If TED 
BY  'UNFIT'  ARE  EXAMINED,  EACH  BOX'S  WIDTH  13  COMPARED  BY 
MEANS  OF  FIRST *  A  TWO- BOX  COMPARISION*  THEN  A  THREE -BOX 
COMPARISION  AND  SO  ON  UNTIL  ALL  BOX  WIDTHS  HAVE  BEEN  COMPARED 
TO  EACH  OTHER,  AFTER  EACH  COMPARISION  THE  MAXIMUM  DIFFERENCE 
IN  BOX  WIDTHS  IS  RECORDED  IN  ' SDIFF '  AND  THE  LARGEST  BOX  WIDTH 
IS  RECORDED  IN  'DIFF'. 

ALSO*  AS  EACH  COMPARISION  TAKES  PLACE  'NEULEN'  IS  UPDATED. 
THAT  IS*  'NEWLEN'*  WHICH  WAS  ORIGNALLY  EQUAL  TO  THE  LENGTH 
OF  THE  FIRST  BOX  IDENTIFIED  BY  'UNFIT' »  IS  INCREASED  BY  THE 
APPROPRIATE  BOX  LENGTH. 

THE  VALUE  OF  'NEWWTH' r  OR  THE  REMAINING  SPACE  ALONG  THE 
SIDE  OF  THE  PALLET*  IS  ALSO  CHANGED  BY  SUBTRACTING  THE 
APPROPRIATE  BOX  WIDTH. 

WHEN  THE  PROGRAM  EXITS  THE  DO  LOOP  THE  VALUES  OF  'NEWLEN' 
AND  'NEWWTH'  CAN  BE  INTERPRETED  AS  * 


NEULEN  =  THE  SUM  OF  ALL  ENTRIES  OF  ARRAY  'LBOX'. 

=  THE  SUM  OF  THE  LENCTHS  OF  EACH  DOX  IDENTIFIED 
BY  'LINFIT'. 

NEUUTH  =  THE  PREVIOUS  'NEWWTH'  VALUE  MINUS  THE  MAXIMUM 

WIDTH  FROM  ALL  THE  BOXES  IDENTIFIED  BY  'LINFIT'. 


THIS  INFORMATION  WILL  BE  USED  LATER  IN  CHECKING  TO  SEE  IF 
THE  *  UNIFORM  LOAD  ASSUMPTIOM"  IS  VALID. 

LINE (56)  !  'WIDE'  IS  GIVEN  THE  NEW  VALUE  EQUAL  TO  'NEWWTH'. 

LINE(57)J  THE  PROGRAM  SKIPS  TO  LINE  (61). 

LINES(53)  THRU  (60) J  THE  PROGRAM  WILL  SKIP  TO  THIS  LINE* 
DISREGARDING  LINES  (  46)  THRU  (57)  IE  THE  CONDITION  IN  LINE  (4  .>) 

IS  TRUE*  I.E.  ONLY  ONE  BOX  IS  IDENTIFIED  BY  'LINFIT'. 

HERE*  'NEWLEN'  IS  MADE  EQUAL  TO  'LENGTH'*  AND  THE  WIDTH  OF 
THE  BOX  IS  SUBTRACTED  FROM  'NEWWTH'.  ALSO*  'WIDE'  IS  GIVEN 
THE  NEW  VALUE  OF  'NEWWTH'. 

LINE ( 61 )  THRU  (63)J  THIS  DO  LOOP  SIMPLY  CHANGES  ARRAYS  'BOXLEN' 

AND  ' BOXWTH'  TO  CONTAIN  ONLY  THOSE  BOXES  THAT  WERE  IDENTIFIED 
EARLIER  AS  BEING  AVAILABLE  FOR  FUTURE  LOADING. 

LINE(64) :  'TPT'  IS  GIVEN  THE  VALUE  OF  'POINT'. 

LINES (65)  THRU  (76) J  TWO  NESTED  DO  LOOPS  ARE  USED  TO  ASSIGN 
A  X  AND  Y  COORDINATE  TO  EACH  BOX  IDENTIFIED  BY  'LINFIT'. 

THESE  COORDINATES  ARE  PLACED  IN  THE  APPROPRIATE  ENTRY  OF  THE 
ARRAY  'COOR'.  THIS  IN  EFFECT  "LOADS*  THE  BOXES  ONTO  THE  PALLET. 

LINES (77)  THRU  (80) J  HERE  THE  VALUE  OF  'POINT'  IS  CHANGED  TO 

C00RE3P0ND  TO  A  POSITION  ALONG  THE  LEFT  SIDE  OF  THE  PALLET 

AND  A  VALUE  OF  'WIDTH'  MINUS  'NEWWTH'  BELOW  THE  "REFERENCE  POINT'. 


LINE < 31 >  J  IF  THE  MAX  IMUM  DIFFERENCE  OF  ANY  TOO  DUXES  IDENTIFIED  DY 
'LINFIT'  IS  GREATER  THAN  4  INCHES  AN  *  UNEVEN  LOAD *  EXISTS  AN 
THE  PROGRAM  RETURNS  TO  THE  CALLING  MODULE  *  IF  THE  DIFFERENCE: 

IS  LESS  THAN  A  INCHES  THE  PROGRAM  EXECUTES  THE  NEXT  STATEMENT. 

LINE (83) »  IF  THE  DIFFERENCE  BETWEEN  'LENGTH'  AND  THE  SUM  OF 
THE  'LINFIT'  BOX  LENGTHS  IS  GREATER  THAN  'SMALL' *  OR  'NEWWTH' r 
THE  SPACE  REMAINING  BELOW  THE  'LINFIT'  BOXES »  IS  LESS  THAN 
'SMALL' ,  THE  PROGRAM  WILL  RETURN.  IF  NEITHER  CONDITION  IS 
TRUE  THE  NEXT  STATEMENT  IS  EXECUTED. 

LINE (05) J  'NEWLEN'  IS  INITIALIZED  TO  THE  VALUE  OF  'LENGTH'. 

LINE(G6>i  BECAUSE  THE  CONDITIONS  IN  LINES  (01) 'TO  <G4>  WERE 
SATISFIED*  A  "UNIFORM  LOAD"  CAN  DE  ASSUMED >  AND  THE  PROGRAM 
RETURNS  TO  LINE<5>  TO  BEGIN  THE  SECOND  LOAD  USING  THE  SAME 
PROCEDURE  BUT  WITH  AN  UPBATED  LIST  OF  BOXES  AND  NEW  VALUES 
FOR  'NEWLEN'  AND  'NEWWTH'. 

LINE(87> ♦  RETURN  TO  CALLING  MODULE. 

LINE (S3):  END  OF  SUBROUTINE. 


EFT  SUBROUTINE  PILE2A 


THIS  SUBROUTINE  PERFORMS  THE  "STACKING"  SEQUENCE  OF  THE 
PROGRAM.  BEGINNING  WITH  'TRACK'  NUMBER  UF  BOXES*  HAVING 
LENGTHS  AND  WIDTHS  CONTAINED  IN  ARRAYS  'LBOX'  AND  'WGOX'r 
AS  MANY  ADDITIONAL  BOXES  FROM  A  LIST  OF  'N'  BOXES  ARE  LOADED 
BELOW  EACH  'LBOX', 

LINE(l):  THE  NAME  OF  THE  SUBROUTINE  AND  THE  VARIOUS  ARGUMENTS. 
SEE  SECTION  CB3  FOR  AN  EXPLANATION  OF  THE  VALUE  OF  EACH 
ARCUMENT  WHEN  'PILE2A'  IS  CALLED. 

LINE(2) J  ALL  VARIABLES  ARE  INTEGER. 


LINE<3>:  DIMENSIONS  ALL  ARRAYS  TO  30  ELEMENTS. 

LINES < 4 )  THRU  (6)  »  INITIALIZES  'SAVE' r  'START'  AND  'GUIDE' 
EQUAL  TO  ZERO. 


L I NE ( 7  > ♦  'DPT'  IS  GIVEN  THE  VALUE  OF  'POINT'. 

LINES (8)  THRU  (11  >J  THE  VARIABLE  'GUIDE'  IS  GIVEN  A  VALUE  EQUAL 
TO  'WIDE'  PLUS  THE  LARGEST  WIDTH  OF  ALL  BOXES  IN  ' WBOX ' . 


LINE ( 12 ) J  'TT2'  IS  INITIALIZED  AC  ZERO. 

LINE ( 13) J  THIS  DO  STATEMENT  STARTS  A  DC  LOOP  THAT  CONTAINS  THE 
REMAINDER  OF  THE  SUBROUTINE.  NESTED  IN  THIS  LARGE  DO  LOOP  ARE 
SEVERAL  SMALLER  BO  LOOPS  THAT  ARE  USED  TO  "STACK*  BOXES.  THE 
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LARGER  DO  LOOP  IS  INCREMENTED  DY  ONE  UNTIL  STACKING  HAS  OCCUREB 
BELOW  EACH  BOX  IN  'LBOX'. 

LINE ( 14) J  'POINT '  IS  EQUAL  TO  ' BPT ' .  THIS  CHANGE  IS  REQUIRED, 
AT  THE  BEGINNING  Of  THE  LARGE  DO  LOOP  TO  KEEP  TRACK  OE  CHAT  THE 
COORDINATE  OF  THE  FIRST  BOX  LOADED  UNDER  EACH  SUCESSIVE  DCX  IN 
'LDDX' . 


LINE< 15) J  'TEMP'  IS  EQUAL  TO  ZERO. 


LINE(li):  IF  THE  LENGTH  OF  A  PARTICULAR  BOX  ,  IN 
IS  TO  DE  LOADED  UNDER  *  IS  LESS  THAN  OR  EQUAL  TO 


'LBOX' 

'START 


WHICH 
,  THE 


PROGRAM  SKIPS  TO  LINE  <?1>  AND  ON  TO  LINE  (13)  TO  BEGIN  LOADING 
UNDER  THE  NEXT  DOX  IN  'LBOX', 

THE  VALUE  CF  'START'  WILL  BECOME  APPARENT  IN  LINE  (2?)* 
'START'  IS r  IN  FACT  »  A  NUMBER  CORRESPONDING  TO  THE  LAST  BOX  IN 
'LBOX  THAT  HAS  THE  SAME  WIDTH*  WITHIN  4  INCHES*  AS  ALL  THE 
PREVIOUS  BOXES  CONSIDERED * 


LINE(IO):  'NEWLEN'  IS  GIVEN  THE  VALUE  OF  THE  LENGTH  OF  THE 
CURRENT  BOX  IN  'LBOX'* 


LINE(1?>:  'NEWWTH'  IS  EQUAL  TO  'SWIDE'  MINUS  THE  WIDTH  OF 
THE  CURRENT  BOX  IN  'UBOX'* 


LINEC20) J  IF  THE  CURRENT  BOX  IS  ALSO  THE  LAST  BOX  IN  'LBOX' 
THEN  THE  PROGRAM  SKIPS  TO  LINE(32). 


L I NE ( 2 1 )  J  'IP1'  IS  MADE  EQUAL  TO  IH,  WHICH  IS  THE  NEXT  BOX 
IN  'LBOX'. 


LINES (22)  THRU  (30) J  THIS  DO  LOOP  PERFORMS  THE  TEST  FOR  A 
•UNIFORM  LOAD*  BETWEEN  ANY  NUMBER  OF  CONSECUTIVE  BOXES  IN 
' UBOX '  ♦ 

IF  AN  *  UNIFORM  LOAD’  CAN  BE  ASSUMED  WITH  SOME  OF  THE  BOXES 
'NEWLEN'  IS  INCREASED  AND  'NEWWTH'  IS  DECREASED  BY  THE 
APPROPRIATE  AMOUNTS. 

LINE (31 ) J  IF  THE  DO  LOOP  IS  COMPLETED  'NEWWTH'  IS  SET  EQUAL  TO  'SWID 
MINUS  THE  MAXIMUM  BOX  WIDTH  OF  THOSE  BOXES  IDENTIFIED  IN  LINES  (22) 

THRU  (30)  AS  HAVING  MET  THE  TEST  FOR  A  ’UNIFORM  LOAD’  ASSUMPTION. 

LIME ( 32) J  'SAVE'  IS  INCREMENTED  BY  'NEWLEN'. 

LINE (33) •  IF  'I'  IS  EQUAL  TO  'TRACK'  THEN  'NEWLEN'  IS  GIVEN  THE 
VALUE  OF  'LENGTH'. 

LINES (35)  THRU  (37)1  THESE  STATEMENTS  INITIALIZES  SEVERAL  SINGLE 
VARIABLES  TO  ZERO, 

LINE (33) 1  THIS  DO  LOOP  BEGINS  THE  PROCESS  OF  ’STACKING"  BOXES  UNDER 
THOE  BOXES  CONTAINED  IN  'LBOX'. 

LI NE ( 39 ) i  EACH  OF  THE  BOXES  IN  'BOXLEN'  IS  CHECKED  TO  SEE  IF  IT  IS 

AVAILABLE  FOR  LOADING  OR  IT  IT  WILL  FIT  IN  THE  REMAINING  SPACE  *  WITH 


DIMENSIONS  "NEWLEN'  DY  "NEtdMTH 


LINE ( 41 >  t  IT  THE  CURRENT  BOX  CAN  BE  LOADED  ' NEUWTH'  IS  DECREMENTED  BY 
THE  " BOXWTH'  VALUE  OF  THIS  BOX. 

LINE  (42)  i  IF  THE  REMAINING  SPACE  ALONG  'NEWLEN'  UNDER  WHICH  "PILF.2A' 
IS  TRYING  TO  STACK  IS  LESS  THAN  4  INCHES ?  THEN  SKIP  TO  LINE  (49).  . 
OTHERWISE  PROCEED  TO  THE  NEXT  STATEMENT  IN  THE  PROGRAM. 

LINE<44> ♦  IF  THE  LENGTH  OF  THE  CURRENT  BOX  JUST  LOADED ?  IS  LESS  THAN 
"MAX"?  SKIP  TO  LINE  (50). 


LINE(46)J  IF  THE  BOX'S  LENGTH  IS  NOT  LESS  THAN  'MAX'  GIVE  'MAX'  THE 
VALUE  OF  'BOXLEN'  FOR  THE  CURRENT  BOX  UNDER  CONSIDERATION. 

LINE<47) ♦  "TEMPT'  IS  UPDATED  TO  THE  VALUE  OF  'POINT'  PLUS  THE  VALUE 
OF  "MAX" f  THAT  IS  THE  LENGTH  OF  THE  LOADED  BOX. 

LINE<43>:  THIS  *G0  TO*  STATEMENT  ALLOWS  THE  PROGRAM  TO  SKIP  LINE  <49> 
WHICH  IS  ONLY  EXECUTED  IF  THE  CONDITION  IN  LINE  (42>  IS  TRUE. 

LINE(49)J  IF  THIS  STATEMENT  IS  EXECUTED?  THAT  IS  NO  MORE  BOXES  CAN  BE 
LOADED?  "WMAX"  IS  INCREASED  BY  THE  WIDTH  OF  THE  BOX  JUST  LOADED. 

LINF.S(50)  THRU  (58)1  THIS  DO  LOOP  IS  USED  TO  ASSIGN  A  X  AND  Y  COOR¬ 
DINATE  TO  THE  BOX  JUST  IDENTIFIED  TO  BE  LOADED.  THIS  COORDINATE  IS 
PLACED  IN  THE  APPROPRIATE  ENTRY  OF  THE  ARRAY  'COOR'.  THIS  IN  EFFECT 
•LOADS*  THE  BOX  ONTO  THE  PALLET. 

LINE (59) l  HERE  THE  VALUE  OF  "POINT"  PR  THE  COORDINATE  OF  THE  NEXT  BOX 
TO  BE  LOADED?  IS  CHANGED  TO  CORRESPOND  TO  A  POSITION  DIRECTLY  BELOW 
THE  BOX  JUST  LOADED. 

LINE ( 60 ) !  THE  VALUE  OF  'BOXLEN'  FOR  THE  BOX  JUST  LOADED  IS  CHANGED 
TO  A  NEGATIVE.  IN  THIS  WAY  THIS  BOX  IS  IDENTIFIED  AS  NOT  BEING 
AVAILABLE  FOR  FUTURE  LOADING  CONSIDERATION, 

LINE (61):  THIS  STATEMENT  SEND  THE  PROGRAM  BACK  TO  LINE  (3S>  WHERE 
THE  NEXT  BOX  IS  CONSIDERED  FOR  • STACKING*  IN  THE  AREA  "NEWLEN'  DY 
"NEWUTH" . 

LIME ( 62 > 1  IF  "MAX'  IS  EQUAL  TO  ZERO  AT  THE  END  OF  THE  DO  LOOP 
(LINES  (38)  THRU  (61))  THE  NUMBER  OF  BOXES  ‘STACKED*  WILL  BE  ZERO, 

IN  THIS  CASE  THE  PROGRAM  GOES  TO  LINE  (69). 

LINES (64)  THRU  (67)  J  IF  'MAX'  IS  NOT  EQUAL  TO  ZERO  THEN  THE  VALUES 
OF  'POINT'?  'NEWLEN'  AND  'TEMP'  ARE  UPDATED.  THIS  PREPARES  THE 
PROGRAM  F0  STARTING  TO  STACK  BOXES  ALONG  SIDE  THE  BOX  OR  BOXES 
JUST  LOADED  IN  LINE  (30)  THRU  (61). 

LINE (68) \  RETURNS  THE  PROGRAM  TO  LINE(35)  TO  CONTINUE  ’STACKING* . 

L I ME ( 69 ) «  IF  THIS  STATEMENT  IS  EXECUTED?  THAT  IS  THE  CONDITION  IN 
LINE ( 62 )  IS  TRUE?  THE  VALUE  OF  "BPT"  IS  UPDATED  10  A  POSITION 
JUST  BELOW  THE  NEXT  GROUP  OF  BOXES  IN  'LBOX'  THAT  THE  SUBROUTINE 


UILL  BEGIN  ’STACKING*  UNDER 
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LINE(?1>:  THE  PROGRAM  NOW  RETURNS  TO  LINE  (IS)  AND  BEGINS  THE 
"STACKING’  PROCESS  AGAIN  UNDER  THE  NEW  BOX(ES). 


LINE(72)J  RETURNS  TO  CALLING  MODULE* 
LINE ( 73) i  END  OF  SUBROUTINE. 


CGU  SUBROUTINE  PILE2B 


THIS  SUBROUTINE  IS  ALMOST  IDENTICAL  TO  'PILE2A'.  IN  BOTH 
SUBROUTINES  BOXES  ARE  ’STACKED’  UNDER  THOSE  BOXES  LOADED  BY 
'NEWLST'  AND  CONTAINED  IN  ARRAYS  'LBOX'  AND  'WDOX' .  HOWEVER »  ' PILE2B ' 
LOADS  ALL  THESE  ADDITIONAL  BOXES  WITH  THEIR  WIDTHS  PARALLEL  TO  THE 
•STARTING  SIDE*  OF  THE  PALLET  RATHER  THAN  THEIR  LENGTHS  AS  WAS  THE 
CASE  IN  /F‘ILE2A '  • 


THIS  CHANGE  IS  ACCOMPLISHED  BY  INTERCHANGING  /BOXLEN/  AND 
IN  LINES  (39)  THRU  (46)  AND  IN  LINES  (49)  AND  (59).  THIS  WILL 
A  COMPLETELY  DIFFERENT  LOADING  PATTERN  THAN  DOES  'PILE2A'. 


' BOWWTH ‘ 
PRESENT 


cm  SUBROUTINE  PILE4 


RECALL  IN  SECTION  COT  THE  MODULE  MAST3A  WAS  SAID  TO  BE  BASICALLY 
THE  SAME  AS  MODULE  MAST2A  EXCEPT  THAT  ' PILE4 '  WILL  START  WITH  A  NUM¬ 
BER  OF  BOXES *  WITH  LENGTH  'BOXLEN'  AND  WIDTH  'BOXWTH'  WHICH  REMAIN 
TO  BE  LOADED.  THEN*  UNDER  EACH  BOX  IN  THE  ’LAST*  LOAD  IDENTIFIED 


IN  'NEWLST' »  IT  WILL  LOAD  AS  MANY  DOXES  AS  POSSIBLE  WITH  THE  HELP 
OF  SUBROUTINES  'NEWLST'  AND  'PILE3'  (SEE  SECTION  [ID,  REMEMBER* 
'NEWLST'  WILL  REPEATEDLY  LOAD  AS  MANY  BOXES  AS  POSSIBLE  ALONG  THE 
PALLET'S  ’STARTING  SIDE’  UNTIL  AN  *  UNEVEN  LOAD’  APPEARS.  ' PILE4 ' 
THEN  IMPLEMENTS  STEPS  (6) (A >*(7)  AND  (8)  DESCRIBED  IN  PARA.  5. 


LINE(l):  THE  SUBROUTINE  NAME  AND 
OF  THE  ARGUMENTS  ARE  ASSIGNED  BY 
CAN  BE  INTERPRETED  AS  FOLLOWS: 


THE 

THE 


LIST  OF 
CALLING 


ARGUMENTS,  THE 
MODULE*  MASTS A, 


VALUE 

THEY 


BOXLEN  =  AN  ARRAY  OF  'N'  ELEMENTS  EACH  WITH  A  VALUE  OF  A  BOX 
LENGTH.  THOSE  BOXES  LOADED  BY  'NEWLST'  OR  CAN  NOT 
FIT  IN  THE  REMAINING  SPACE  ON  THE  PALLET*  WILL  HAVE 
NEGATIVE  VALUES. 

BOXWTH  =  AN  ARRAY  OF  'N'  ELEMENTS  EACH  WITH  A  VALUE  OF  A  BOX 
WIDTH. 

104 

NUMBER  OF  BOXES  NOT  LOADED  BY  'NEWLST'. 

AN  ARRAY  OF  (A-N)  ELEMENTS  EACH  HAVING  THE 


LENGTH 

N 

LBOX 


VALUE 

BY  'NEWLST 


SMALL 

WIDE 


OF  A  BOX  LENGTH  OF  THOSE  BOXES  LAST  LOADED 

4 

LARGEST  PALLET  WIDTH  REMAINING  AFTER  ALL  THE  BOXES 
WERE  LOADED  BY  'NEWLST'.  THIS  DOES  NOT  INCLUDE  THE 
LAST  ROW  OF  BOXES*  IF  MORE  THAN  ONE  ROW  IS  LOADED  BY 


32 


£2 


'NEWLST' . 

MBL  =  ARRAY  OF  'A'  BOX  LENGTHS*  Al-L-  POSITIVE  IN  VALUE ♦ 

MBW  =  ARRAY  OF  ' A '  BOX  WIDTHS*  ALL  POSITIVE  IN  VALUE « 

COOR  =  AN  ARRAY  OF  'A'  ELEMENTS.  THE  ENTRIES  IN  THIS  ARRAY 
CORRESPONDING  TO  THE  BOXES  LOADED  BY  'NEWEST'  WILL 
HAVE  A  FIVE  DIGIT  COORDINATE  OF  THE  UPPER  LEFT 
CORNER  OF  EACH  BOX.  ALL  OTHER  ELEMENTS  WILL  REMAIN  . 
ZERO. 

POINT  =  COORDINATE  OF  THE  LAST  BOX  TO  BE  LOADED  BY  ' NEWLST ' . 


A  =  ORIGINAL  NUMBER  OF  BOXES*  A  =  NEXTTN. 

STPT  =  0 


LINE (2) ♦  ESTABLISHES  ALL  VARIABLES  AND  ARRAYS  TO  BE  INTEGER. 

LINE (3>  ♦  DIMENSION  STATEMENT  DECLARES  ALL  ARRAY'S  TO  HAVE  A  MAXIMUM 
OF  30  ELEMENTS. 

LINE(4> ♦  THE  DATA  STATEMENT  INITIALIZES  SEVERAL  SINGLE  VARIABLES  AND 
ARRAYS  TO  BE  ZERO. 

LINEOK  'TWIDTH'  IS  GIVEN  THE  VALUE  OF  /WIDE/  * 

LINES (6)  THRU  (8)J  THIS  DO  LOOP  DUPLICATES  THE  VALUES  IN  ARRAYS 
'BOXLEN'  AND  'BOXWTH'  INTO  ARRAYS  ' MBL '  AND  'MBW'  RESPECTIVELY. 

SOME  OF  THESE  BOXES  IN  'BOXLEN'  AND  'BOXWTH'  WILL  BE  IDENTIFIED  BY 
'PILE4'  AND  'PILE3'  AS  HAVING  BEEN  LOADED  UNDER  SOME  BOX  IN  'LBOX' 
<THOSE  BOXES  LAST  LOADED  BY  'NEWLST' >.  THEREFORE*  LATER  IN  'PILE)' 
SUBROUTINE  'REGRF '  WILL  BE  CALLED  TO  MODIFY  'BOXLEN'  AND  'BOXWTH' * 
ELIMINATING  THESE  LOADED  BOXES. 


LINE (9) *  STPT2  =  STPT 

LINES (10)  THRU  <13)t  THIS  DO  LOOP  DETERMINES  'SWIDE'.  'GUIDE'  IS 
THE  REMAINING  WIDTH  OF  THE  PALLET  WITH  THE  “LAST*  ROW  OF  BOXES 
LOADED  BY  'NEWLST'  REMOVED. 

LINE ( 14) J  THIS  DO  STATEMENT  BEGINS  THE  MAJOR  PORTION  OF  THE 
SUBROUTINE  'PILE* ' .  NOTE  THE  INDEX  'I'  IS  INCREMENTED  BY  ONE  FROM 
ONE  TO  'NEXT'*  THE  NUMBER  OF  BOXES  IN  THE  *  LAST  *  ROW  LOADED  BY 
'NEWLST' ♦ 

LINE ( 1 5 >  J  N1  IS  INITIALIZED  AS  ZERO, 


LINEU&>:  IF  THE  CURRENT  VALUE  OF  'I'  IS  LESS  THAN  'START'  THE 
PROGRAM  SKIPS  TO  THE  END  OF  THE  DO  LOOP  AND  THEN  RETURNS  TO  LINE 
WERE  IT  DEOINS  WITH  THE  NEXT  BOX.  THE  VALUE  OF  'START'  WILL.  DEC 
OBVIOUS  IN  LINE  (27>. 


LINE < IS ) {  'TLENTM'  IS  GIVEN  THE  VALUE  OF  THE 
IN  THE  "LAST*  LOAD  OF  'NEWLST'. 


LENGTH  OF  Till 


LINE' 17) !  'TWIDTM'  IS 
OF  THE  I  TH  BOX  IN  TH 


ASSIGNED  THE  VALUE  CF  'GUIDE' 
•LAST*  LOAD  OF  'NEWEST'. 


IT  CONTI MU 


kit  i c“ c*  *rrv 


rc  THE  NEXT  STATEMENT . 


LINES (23)  THRU  <2?>:  IN  THIS  DO  LOGO  ALL  THE  BOXES*  DEG I 
BOX(IP)*  ARE  COMEARED  TO  THE  WIDTH  OF  DUX <  1  > .  IF  THERE 
FOUR  INCHES  DIFFERENCE  ' TLENTM '  IS  INCREASED  BY  THE  NEXT 
AND  THE  WIDTH  IS  DECREASED  ACCORDINGLY.  ALSO  'START'  IS 
VALUE  OF  THE  INDEX  CORRESPONDING  TO  THIS  ADDITIONAL  BOX. 
WHEN  THE  FIRST  BOX  THAT  IS  ENCOUNTERED  WITH  A  WIDTH  G R E A 


VALUE  OF  THE  INDEX  CORRESPONDING  TO  THIS  ADDITIONAL  BOX. 
WHEN  THE  FIRST  BOX  THAT  IS  ENCOUNTERED  WITH  A  WIDTH  G R E A 
CURRENT  BOX  WIDTH  (STORED  IN  TT2>*  THE  PROGRAM  EXITS  THE 
PROCEEDS  TO  LINE  <31 >.  NOTE ,  WHAT  THIS  DO  LOOP  IS  DOING 
FOR  A  • UNIFORM  LOAD*  ASSUMPTION  FOR  A  -PORTION*  OF  THE  * 


OF  BOXES  IDENTIFIED  BY 
TION)  . 


•UNIFORM 


IS  LESS  THAN 
BOXES  LENGTH* 
GIVEN  THE’ 
HOWEVER, 

TER  THAN  THE 
DO  LOOP  AND 
IS  TESTING 

i  Anri  I  f>  a  n 
L—  I  I  v",  I  Lui'f  A' 
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LINE ( 30) {  IF  THE  DO  LOOP  IS  COMPLETED*  ' TWIDTM  '  IS  SET  EQUAL  10 
'SWIDE'  MINUS  THE  MAXIMUM  BOX  WIDTH  OF  THOSE  ^GXt.S  IDENTIFIED  IN 
LINES  (23)  THRU  (2?)  AS  HAVING  WIDTH  D I »“ rEF\G^CE3  QF*  LLSo  THAN!  4  INC!  1EG 


i  \  ♦  /  O  A  t  »r~  /  TO  T  M  O  •E’ M  £■*•**•  IT  **■  V,N/ 
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ENTM'  ♦ 


LINE  ( 32)  #  IF*  /I/  IS  EQUAL  T  G  7  NEXT / 1  THEN  'TLENTM'  IS  GIVEN  I  HE  VALUE 
OF  'LENGTH' . 

LINES (3-1)  THRU  <30>  !  THIS  DO  LOOP  INITIALIZES  SEVERAL  ARRAYS  10  .'ERG* 

LINES (39)  THRU  <41  >J  THESE  STATEMENTS  INITIALIZES  SEVERAL  SINGLE 
VARIABLES  TO  ZERO. 


LINE  <  42 ) J  ' NEWEST '  IS  CALLED.  HOWEVER,  THIS  TIME  THE  LENGTH  OF  THE 
PALLET  IS  REPLACED  BY  'TLENTM'  AND  THE  WIDTH  BY  'TWIDTM'.  'BOXLEN' 


AND  ' BOXWTH '  CONTAIN  THOSE  BOXES  TO  BE  LOADED.  'MBL'  AND  ' MOW '  STILL 
CONTAIN  ALL  THE  ORIGINAL  BOX  LENGTHS  AND  WIDTHS.  AS  WEt_L ,  'COOP' 
CONTAINS  THE  CURRENT  COORDINATES  OF  AL,  L  LC  AI’CI*  DO XF!  3.  ALL  OTHER 
ARGUMENTS  ARE  ZERO  OR  HAVE  THE  VALUES  ESTABLISHED  WHEN  'PILE''  WAS 
CALLED. 


LINE < 43)  *  WHEN  'NEWLST'  RETURNS,  IF  'N'  IS  ZERO,  THAT  IS,  NO  MORE  BOXFJ 
ARE  LEFT  FOR  LOADING  THE  PROGRAM  RETURNS  TO  ' MASTS A' »  IF  'N'  IS  NOT 
ZERO  THE  NEXT  STATEMENT  IS  EXECUTED. 

LINE ( 45) J  IF  'COUNT'  IS  EQUAL  TO  ZERO,  THAT  IS  THERE  WAS  ONLY  ONE  BOX 
LOADED  BY  'NEWLST'*  THE  PROGRAM  PROCEEDS  TO  LINE  (49).  I  r  ' coun r '  ic 
NOT  ZERO*  LINE  (47)  IS  EXECUTED. 

LINE < 47) ♦  SUBROUTINE  'PILE3'  IS  CALLED.  FOR  AN  INTERPRETATION  OF  EACH 
ARGUMENT  SEE  SECTION  CI3.  ' PILE3  7  CAfvFcI  ES  OUT  THE  STACKING  PORTION 
OF  THE  F'FcCOFs  AM  UNDER  EACH  BOX  THAT  'NEWEST'  HAS  JUST  LOADED,  (SEE 
PARA.  5*  STEPS  <3)<B>,  <7>  AND  <G>>. 

LINE  <4G>:  THE  PROGRAM  SKIPS  TO  LINE  (54). 

LINES (49)  AND  (50) J  IN  LINE  (45)  IF  ONLY  ONE  BOX  IS  LOADED  BY  ' NEWLST ' 
THESE  TWO  STATE  ME! NTS  ARE  EXE.  CUTEB  NEXT.  'BOXL(l)'  AN  i_»  ^  I*UA  vj  ( 1  )  '  ARE 
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WHICH  THE  REMAINING  I:  OX  LG  ARE  TO 


BOX  OR  SERIES  OF  BOXES  UNDER 
'STACKED"  USING  'PILES', 


LINE  <51 >  t  SUBTOURTINE  'PILE3'  IS  CALLED.  ALL  ARGUMENTS  HAVE  THE  SAME 
MEANING  EXCEPT  'COUNT'  IS  REPLACED  BY  1.  'PILES'  ALSO  ASSIGNS  TMF. 
APPROPRIATE  COORDINATE  TO  THE  BOXES  THAT  IT  WILL  LOAD. 


tfev 


LINE (52) •  IF  'I'  IS  EQUAL  TO  'NEXT'#  THAT  IS  THE  FINAL  BOX  IN  THE 
•LAST*  ROW  OF  BOXES  ORIGINALLY  IDENTIFIED  BY  ' NEWLST '  HAS  BEEN  , 
REACHED  THE  PROGRAM  RETURNS  TO  'MA3T3A' ♦ 


LINE <54 ) *  SUBROUTINE  'RECRP'  IS  CALLED.  THIS  SUBROUTINE  WILL  ELIMINATE 
THOSE  BOXES  LOADED  BY  'NEWEST'  AND  'PILES'  FROM  THE  LI  ST  CF  ' N '  BOXES 
ORIGINALLY  SENT  TE 


r  i>ti  c  *  / 


THE  NEXT  BOX  IN  ARRAY 


OF  t 
(THE 


' STPT2 '  TO 
POINT  UNDER  THE  LOWER  LEFT  CORNER  OF 

AS 


AOC*  AV  nr*  rinvro  rruT  vn 

i\AnT  Or  hOnC.O  Sl-N  I  I  w 


t  o  t  i  r*  *  t 


LINE (59) !  THIS  STATEME  NT  FtETuR  NS  THE  PROGRAM  TO  L1NE<14)  WHERE  THE 
BOX  IN  'LBOX'  IS  CHOSEN  AND  THE  PROCEDURE  IS  PERFORMED 

LINE ( 60) «  RETURN  TO  CALLING  MODULE /  'MAST3A' ♦ 

LINE ( 61 ) J  END  OF  SUBROUTINE. 


LIU  SUBROUTINE  PILES 


rrnrrii. 

f\C.VAC.W/ 


AS  A 

BOXES  WERE  LOADED 
LOAD  IS  OBTAINED.  NEXT t  ' 

IS  CALLED  AGAIN.  BUT  THIS 
IN  THE  •LAST*  ROW  OF  BOXES 
ENTIRE  PALLET  AREA  (SEE  FIG. 
LENGTH  OF  THIS  AREA  <AI>  AND 


WHEN 


'MASTS A 


w  I 

ETC'  •  CT  A  r«*r  T  11.-'  nrH*1 
i  O  viirmi  ii^J  oJ-L'l. 

•I LET'  IS  CALLED,  WITHIN 
TIME.  ONLY  THE  AREA  (Al> 
BY 

15).  THE 

' TWIDTM '  IS  THE  WIDE 
ioiuTir  i  iui'i  a  ALSO  TAKEN  I N  i  0  E  F  F  E 
UP  TO  'NEXT'  NUMBER  OF  BOXES j 
TO  ' TLENTH '  (SEE  FIG.  15).  ONCE  'NEWEST' 

AREA  (Al>  AS  POSSIBLE >  'PILES'  IS  CALLED 
PORTION  OF  THE  LOADING  ROUTINE  UNDER  THE 
ED  DY  'NEWLST'. 


O  r-  r*.  T  o  c 


UNTIL  AN  "UN? 
'PI  LEV  '  NEWl 
UNDER  BOX  (Dl 
THE  PLACE  OF 
IS  USED  AS 
OF  COURSE  THE 
SO  THE  LENGTH 


O.  T  t 
■J  i 

\ 

/ 

THE 

THE 


MAY  DE  THE  Si 


HAS  LOADED 
TO  PERFORM 


A' 
THE 


'UAuO 

•STACKING 

ri  O  \/  r*  r'  |  fi  A  1 

i*u/\!..v.)  l.Uni 


IN 


IT  IS  OBVIOUS  BY  EXAMINING  'PILE3 '  AND 
SUBROUTINES  ARE 
'PILES'  HAVE  BEEN  n*.w  .w  ou.,. 

THEREFORE t  INSTEAD  OF  DISCUSSING 
THOSE  LINES  THAT  HAVE  BEEN  CHANGED  OR  ADD  I 
DISCUSSED. 


THAT  THE  TWO 
"'•‘T.E  CHANGES  TO 

.*■  r •  r*  c  n » •  t  r.  c*  >*•-'*  -r  o 

ITS  ENT I RET  .  ONLY 
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r.  v/ 
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M3 

BOXL 


BOXW 
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WHEN  CAL! 
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ll‘UA  l-L-nU 
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ARRAY  OF  (A 


NUMBER  OF  Bi 
IN  ' MAST3A ' 
N)  ELEMENTS 


NOT 

/  C»  T  » 


uiiju'um 


A  XI 
1-1 1  X  /-» 

EACH  HAVING 
NUMBER  OR 


TLir  I  I  A  I  Ilf, 
I  rU.  vriLOu 

nvr/o 


b  by 


N>  ELEMENTS  EACH  HAVING 


BOX  WIDTH 
'NEWL3T' ♦ 
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THE  “TOTAL “ 

NUMBER  Or 

X’  \J 

TRACK 

=  NUMBER  Or 

BO 

XE3  LOADED  BY 

'NEWEST' 

T 

i»t 

to  tu*t  r-nvcc 
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'LENGTH' ♦ 
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<  14 ) 


#  (47)#  (60)# 
FROM  'PILES' 


AND 


THA- 


WERf 


/ r.  T  •  r^/ 


IN  LINE 
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REMAINING  AREA  AFTER  ENTIRE  SECOND  LOAD 


FIGURE  16 
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COMPUTATIONS  THAT  A RE  PERFORMED*  BUT  WRITTEN  IN  SUCH  i 
THAT  A  LINE-BY-LINE  DISCUSSION  WOULD  NOT  BE  WORTHWHILE 
OUTLINE  OE  WHAT  ' SORT '  ACCOMPLISHES  WILL  BE  PRESENTED, 
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APPENDIX 


I. 

PLR  (PALLET  LOADING  ROUTINE) 

II. 

MAST2A 

III. 

MAST2B 

IV. 

MAST2C 

V. 

MAST2D 

VI. 

MAST3A 

VII. 

NE'JLST 

VIII. 

PILE2A 

IX. 

PILE2B 

X. 

PILE-4 

XI. 

PILE  3 

XII. 

SORT 

XIII. 

REGRP 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0011 

0013 

0015 

0017 

0019 

0021 

0022 

0023 

0024 

0025 

0026 

0027 


C* 


i*  '-y  '  V  '•V  v/  vis  v 

f*  ■{-  It-  'i'-  '>  «.'  .»* 


c* 

PALLET  LOADING  ROUTINE 

* 

c* 

Xc 

L  n' 

THIS  ROUTINE  WILL  RUN  ALL  LOADING  ROUTINES r  USING  'N ' 

t 

C* 

NUMBER  OF  BOXES  FROM  'BAMS4.DAT' .  FOR  EACH  LOAD  THE  BOX 

#. 

c* 

LENGTHS r 

WIDTHS  AND  UPPER  LEFT  HAND  COORDINATE  WILL  BE 

'P 

c * 

PRINTED. 

FINALLY*  THE  NUMBER  OF  THE  LARGEST  LOADED  AREA 

'l' 

c* 

WILL  BE 

PRINTED  AND  THE  OPTION  THAT  GAVE  THIS  AREA. 

»,y 

c* 

* 

c* 

OPT 

SUBROUTINES  USED 

* 

c* 

* 

c* 

Eli 

MAST2A y  LI NFIT  r NEWEST  y  PILE2A y  SORT 

* 

c* 

C23 

MAST2B rLINFIT  yNEWLST  yPILE2ByS0RT 

* 

c* 

L33 

MAST2Cy LINFIT yNEWLST yPILE2AySGRT 

Ct» 

C43 

HAST2D yLINFIT yNEWLST  yPILE2DrS0RT 

A* 

C* 

C53 

hAST3Ay LINFIT yNEWLST yREGRPyPILE324y SORT 

* 

C-p 

* 

IMPLICIT  INTEGER>K2<  A~Z> 

CALL  ASSIGN ( 1  y ' BAMS4.DAT ' > 

CALL  A3SIGN(5y 'TI ♦ ' ) 

DEFINE  FILE  1  <200y  I2yUyNEXT4) 
NAREA  =  0 
DO  1  J~1 r5 
READ(l'l)  (Nrl  =  lrl2) 

2  AREA  =  0 

IF(J.ECM)  CALL  MAST2A ( N r AREA ) 


IF (J. EG *2)  CALL  MAST2B(N> AREA) 
IF<J,EQ.3>  CALL  M AST20  <  N  y  ARE A  > 
IF< J. EG «  4)  CALL  MAST2D < N y AREA > 
IF < J.CG.5)  CALL  MAST3A ( N y AREA ) 
IF ( AREA. LE. NAREA)  GO  TO  1 
NAREA  =  AREA 


OPT  =  J 
KH01CE  »  99 
1  CONTINUE 

WRITE (5r 1000)  NAREA y OPT 

1000  FORMAT <//»'  LARGEST  LOADED  AREA  =  ' yI5r5X? 'OPTION  =  'rI2) 
STOP 


*-  -it 


C  *****************  £  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *****  *  *  **;-*>**  *  *  *  * ; 


THIS  SUBROUTINE  TAKES 


BOXES  AND  LOADS  A  PALL  FT 


C*  DIMENSION  LENGTH  =  104  BY  WIDTH  =  84.  SUBROUTINES  NEWEST/ 
C*  LI NT IT  ARE  USED  INITIALLY  TO  COMPUTE  ROW(S)  OF  BOXES  THAT 
C*  WILL  FIT  ALONG  PALLET  LENGTH.  PILE  2A  WILL  THEN  CONTINUE 
C*  LOADING  ANY  REMAINING  BOXES  UNDER  EACH  BOX  IN  THE  LAST 
C*  ROW  OF  BOXES  LOADED  BY  NEWLST.  LOCATION  OF  THE  UPPER  LEFT 
C*  CORNER  OF  EACH  LOADED  BOX  IS  COMPUTED  BASED  ON  THE 
C*  COORDINATE  SYSTEM  <X,Y)y  STARTING  WITH  THE  UPPER  LEFT 
C*  HAND  CORNER  OF  THE  PALLET  AS  <lyl>.  NOTE y  BOXES  NOT 
C*  LOADED  WILL  HAVE  COORDINATE  =  0.  OUTPUT  IS  THE  LIST  OF 
C*  'N'  BOXES  WITH  LOADED  BOX  LENGTHS  NEGATIVE,  ALONG  WITH 
C*  COORDINATES  OF  LOADED  BOXES. 


0001 

0002 

0003 


0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 


0019 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0023 

0029 

0031 

0032 

0033 

0034 


C*********************************  **************  ************:j 
SUBROUTINE  MAST2A ( N t AREA > 

IMPLICIT  INTEGER*2  <A-Z> 

DIMENSION  B0XLEN(30) yB0XWTH(30> ,BL(30> ,BW<3>> ,PTLGH(30: 

*  LGH(360) » WTH ( 360 ) » LDOX < 30 ) y WBOX (30)  rTLB0X(30! 

*  TWBOX  <  30) y MBL (30) ,MBW<30>  »C00R(3O> 

DATA  COOR y TLB OX y TWDOX y LDOX v WBOX y STLGH y N1 y TOTAL , 

*  COUNT y TRACK  r  WIDE , SPACE ySTPT/158*0/ 

POINT  =101 

DO  1  U=1,N 

1  READ ( 1 ' U >  Z,ZyZ,Z,Zy DL ( U ) » BU ( U ) 

CALL  SORT <  PTLGH y DL  r  STLGH  y  30  > 

M  =  STLGH 
DO  2  K  =  1 yN 
DOXLEN(K)  =  DL<M> 

BOXWTH  <  K )  =  BU(M) 

MBL(K)  =  BL ( M  > 

MDW ( K  >  =  BW(M) 

2  M  =  PTLGH (M) 

A  =  N 
SMALL  =  4 

CALL  NEWLST  <  N  y 104  y  84  y  SPACE y BOXLEN ? BOXWTH  y SMALL » LBOX  y 

*  WBOX  y  TRACK  y  WIDE  y N  t  y TLBOX y  TWBOX y 

*  MBLyMBUyCOORypOINTyAySTPT) 

IF(N.EO.O)  GO  TO  10 

CALL  PILE2A ( BOXLEN r  BOXWTH  r 1 04  v N y  LBOX  y WBOX y  TRACK y 

*  SMALL  y  W I DE  y  MBL  r  MBW , COOR y  POINT  y  A  > 

10  WRITECSy  1000) 

1000  FORMAT <//y IX y '  LENGTH ' y 3X y ' WIDTH ' y 3X y ' POSITION ' y /> 

DO  3  S=1 t A 

WRITE(5f2000)  MBL ( 3 ) y MDU ( S >  y COOR ( S > 

2000  FORMAT  < 1 X  y 1 4 y  5X  y I  4  y  5X  y 15 ) 

3  CONTINUE 
DO  4  T=1 y A 

IF (MBL(T> .GT .0)  GO  TO  4 
TOTAL  =  TOTALil 

AREA  =  ARE  AM  ADS  ( MBL  (  T )  *MBW  ( T ) ) 

4  CONTINUE 

Wfi! I TE  <  5  y  3000  >  AREA  y  TOTAL 


*  % 


003ti  3000  FORMAT <  IX »  7  AREA  =  '  y  I5»5Xj»  'TOTAL  NO,  OF  BOXEC 

0036  RETURN 

0037  END 


x»  v  »  fc  '  i  1 


r  ■■ .  irvggw-.> .v.-mts ■.’vw.n.v-.*.  •■  -.  ■.  . 


0001 

0002 

0003 


0004 

0005 

0006 


C* 


C*  THIS  SUBROUTINE  TAKES  'N'  BOXES  AND  LOADS  A  PALLET  OF 
C#  DIMENSION  LENGTH  =  104  BY  WIDTH  =  04.  SUBROUTINES  NEWEST/ 

C*  LINE IT  ARE  USED  INITIALLY  TO  COMPUTE  ROU(S)  OF  BOXES  THAT 
C*  WILL  FIT  ALONG  PALLET  LENGTH.  PILE  2B  WILL  THEN  CONTINUE 
C*  LOADING  ANY  REMAINING  BOXES  UNDER  EACH  BOX  IN  THE  LAST 
C*  ROW  OF  BOXES  LOADED  BY  NEWLST.  LOCATION  OF  THE  UPPER  LEFT  # 
C*  CORNER  OF  EACH  LOADED  BOX  IS  COMPUTED  BASED  ON  THE  * 

C*  COORDINATE  SYSTEM  <XrY)>  STARTING  WITH  THE  UPPER  LEFT  * 

C*  HAND  CORNER  OF  THE  PALLET  AS  Cl»i>.  NOTE*  BOXES  NOT  * 

C*  LOADED  WILL  HADE  COORDINATE  =  0.  OUTPUT  IS  THE  LIST  OF  * 

C*  'N'  BOXES  WITH  LOADED  BOX  LENGTHS  NEGATIVE >  ALONG  WITH  * 

C*  COORDINATES  OF  LOADED  BOXES.  * 


C* 


ft*************#*********: 


* 


SUBROUTINE  MAST2B < N » AREA > 

IMPLICIT  INTEGERS  <A~Z> 

DIMENSION  BOXLEN (30)  > BOXWTH (30)  »BL<30>  *BW(30)  »PTL6H(30>  » 

*  LGI  K360) »UTH(360> vLB0X(30>  rUB0X(30> * TLBOX (30) * 

*  TWBOX (30), MBL (30)  »MBM<30)  »C00R'(30> 

DATA  COOR  r TLBOX > TWBOX , LBOX y  WBOX > STL6H r N1 r TOTAL  r COUNT , 

*  TRACK  y WIDE* SPACE  y  STPT/ 1 50*0/ 

POINT  =  101 

DO  1  U“1 >N 


0007 

0000 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0010 


0019 

0021 


1  READCl'U)  Z>ZrZ»ZrZrBL<U)rBU<U> 

CALL  SORT ( PTLGH y BL  y STLGH y 30 ) 

M  =  STLGH 
DO  2  K  "  1  »N 
DOXLEN(K)  =  BL ( M  > 

BOXWTH(K)  =  BW(M) 

MBL(K)  =  BL (M> 

MDW(K)  =  BW ( M ) 

M  =  PTLGH CM) 

SMALL  *  4 
A  ~  N 

CALL  NEWLST ( N » 104 t 04 y SPACE  y BOXLEN  r BOXWTH r SMALL y LBOX  r 

*  WBOX y  TRACK  y WIDErNl * TLBOX  y TWBOX , 

*  MBL r  MBU y COOR  » POINT c ArSTPT ) 

IF(N.EQ.O)  GO  TO  10 

CALL  PILE2B ( BOXLEN y BOXWTH r 1 04 , Nr LBOX y WBOX , TRACK , 


*  SMALL y WIDE  y MBL  r MB W r COOR y POINT y  A) 


0022 

0023 

0024 

0025 

0026 

0027 

0020 

0029 

0031 

0032 

0033 

0034 


10  WRITE<5» 1000) 

1000  FORMAT (//i-lXr  '  LENGTH' »3X» 'WIDTH'  *3X» 'POSITION 
DO  3  S=1 y A 

WRITE ( 5 » 2000)  MBL(S) »MBW(S> yCOOR(S) 

2000  FORMAT ( IX  r  I4y  5X y 14  y 5X y  15) 

3  CONTINUE 
DO  4  T=1  y  A 

IF (MBL ( T ) . GT . 0 >  GO  TO  4 
TOTAL  «  TOTAL il 

AREA  =  AREA+I ADSCMBLCT) *MBU ( T ) > 

4  CONTINUE 

WRITE <5r 3000)  AREA r TOTAL 


45 
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THIS  SUBROUTINE  TAKES 


BOXES 


C*  DIMENSION  LENGTH  -  8-1  BY  WIDTH  =  10'. 


IADS  A  PALLET  OE 
SUBROUTINES  NEWEST / 


0001 

0002 

0003 


0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 


0019 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0020 

0029 

0031 

0032 

0033 

0034 


C*  LINE IT  ARE  USED  INITIALLY  TO  COMPUTE  ROW(S)  OF  BOXES  THAT 
C*  WILL  FIT  ALONG  PALLET  LENGTH.  PILE  2A  WILL  THEN  CONTINUE 
C*  LOADING  ANY  REMAINING  BOXES  UNDER  EACH  BOX  IN  THE  LAST 
C*  ROW  OF  BOXES  LOADED  BY  NEWLST.  LOCATION  OF  THE  UPPER  LEFT 
C*  CORNER  OF  EACH  LOADED  BOX  IS  COMPUTED  BASED  ON  THE. 

C*  COORDINATE  SYSTEM  <X?Y>y  STARTING  WITH  THE  UPPER  LEFT 
C*  HAND  CORNER  OF  THE  PALLET  AS  (1,1).  NOTE  >  BOXES  NOT 
C*  LOADED  WILL  HAVE  COORDINATE  a  0.  OUTPUT  IS  THE  LIST  OF 
C*  ,N/  BOXES  WITH  LOADED  BOX  LENGTHS  NEGATIVE y  ALONG  WITH 
C*  COORDINATES  OF  LOADED  BOXES. 

C* 

#  #  #  £  *  *  #  #  t-  $  :jc  #  #  #  *  t  #  #  #  %  $  %  #  *  #  #  $  £  #  #  #  *  %  %  %  %  #  %  %  %  %  %  %  %  %  %  %  %  % 
SUBROUTINE  MA3T2C C N y AREA ) 

IMPLICIT  INTEGER#?  <A~Z> 

DIMENSION  BQXLEN<  30) y BOXWTH ( 30 ) y BL ( 30 ) r BU < 30 ) y PTLGH ( 30 ) 

*  LGM ( 360  >  y  UTH <  360 >  y LBOX ( 30  >  y  WBOX ( 30) y  TLBOX ( 30 ) 

*  TWB0X(30> yMBL(30) yMBW(30) yC00R(30) 

DATA  COOR y  TLBOX y TWBOX  y LBOX  y WBOX rSTLGHrNl y TOTAL y COUNT  y 

*  TRACK y  UI BE  y  SPACE  y  STPT/158#0/ 

POINT  =101 

DO  1  U=1 y  N 

1  REAB(1'U>  ZiZrZyZyZ?  BL  <  U )  y  BW  ( U  > 

CALL  SORT  ( PTLGH y BL  y  STLGII y  30 ) 

M  a  STLGH 
DO  2  K  =  1  y  N 
BOXLEN(K)  «  BL(M) 

BOXWTH (K)  “  BW ( M ) 

MBL(K)  =  BL ( M ) 

MBU(K)  =  BW(M) 

2  M  a  PTLGH <M> 

SMALL  a  4 

A  «  N 

CALL  NEWLST  <  N y 84  y 104  y  SPACE y  BOXLEN y BOXWTI 1  y  SMALL y  LBOX  r 

*  WBOX y TRACK y WIDE y N1 y TLBOX y TWBOX y 

*  M3L  y MBW r COOR  y  POI NT  y  A  r STPT ) 

IF (N.EQ.O)  GO  TO  10 

CALL  PILE2A ( BOXLEN r  BOXWTH y  84  y  N  y LBOX * WBOX y TRACK y 

*  SMALL  y  W I BE  r  MBL y  MBW  r  COOR  y  POINT  y  A ) 

10  WRITE ( 5  y 1000 ) 

1 000  FORMAT  < // y 1 X  r  7  LENGTH ' y  3X  y 'WIDTH ' y  3X , ' POSITION ' y / ) 

DO  3  Sr-1  y  A 

WRITE <  5  y  2000  >  MBL < S >  y MBW < S >  y COOR ( S > 

2000  FORMAT < 1 X  y 1 4  y  5X  y 1 4  y  5X  y 15  > 

3  CONTINUE 
DO  4  T=1 y A 

IF ( MBL (T).GT.O)  GO  TO  4 
TOTAL  =  TOTAL! 1 

AREA  -•  AREA  f  I  ABB  <  MBL  (T  )  #MBW  (  T  )  ) 

4  CONTINUE 

WRITE (5y 3000)  AREA y TOTAL 


003o  3000  F0R:A1(1X»'  AREi'i  -  '  r  15  r5X  >'  TOTAL  NO,  01  DOXFS 

0036  RETURN 

0037  END 
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Eft 

bfc 


0001 

0002 

0003 


0004 


0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 


0016 

0017 

0018 


0019 

0021 


0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0031 

0032 

0033 

0034 


c*******  *  *  *  ft  %  #  *  *  *  *  *  ft  t  a  #  *  *  *  *  *  *  *  *  *  *  *  ^  %  %  %  $  *•*  #  ;v  # ^  ; 

Cft 

THIS  SUBROUTINE  TAKES  'N'  BOXES  AMD  LOADS  A  PALLET  OF 
DIMENSION  LENGTH  =  84  BY  WIDTH  =  104.  SUBROUTINE  NEWLST/ 
LINFIT  ARE  USED  INITIALLY  TO  COMPUTE  ROW(S)  CT-  BOXES  THAT 
WILL  FIT  ALONG  PALLET  LENGTH.  PILE  2D  WILL  THEN  CONTINUE 


C* 

Cft 


Cft 

Cft 

Cft 

Cft 

Cft 

Cft 

Cft 

Cft 

Cft 


LOADING  ANY  REMAINING  BOXES  UNDER  EACH  BOX  IN  THE  LAST 
ROW  OF  BOXES  LOADED  BY  NEWLST.  LOCATION  OF  THE 
CORNER  OF  EACH  LOADED  BOX  IS  COMPUTED  BASED  ON 


UPPER  LLP 
THE 


ft 

ft 


COORDINATE  SYSTEM  <X*Y)*  STARTING  WITH  THE  UPPER  LEFT 


HAND  CORNER  OF  THE  PALLET  AS  (1,1).  NOTE  *  BOXES  NOT 
LOADED  WILL  HAVE  COORDINATE  =  0.  OUTPUT  IS  THE  LIST  OF 
/N/  BOXES  WITH  LOADED  BOX  LENGTHS  NEGATIVE*  ALONG  WITH 
COORDINATES  OF  LOADED  BOXES. 


ft 

-V 


Cftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
SUBROUTINE  MA5T2D(N* AREA) 

IMPLICIT  INTEGERS  (A-Z) 

B I MENS I ON  BOXLEN ( 30 ) * BOXWTH ( 30 >  * BL ( 30 >  * BW C 30 ) * PILCH ( 30 
*  LGH  ( 360  )  * MTU (360  >  * LBOX ( 30)  *  WBOX  ( 30  >  *  TLBOX (30 

ft  TWBOX ( 30 ) * MBL( 30 ) *  MBW ( 30 ) *  COOR ( 30 ) 

DATA  COOR  *  TLBOX  *  TWBOX  *  LBOX  *  WBOX  *  STLGH *  Ml *  TOTAL  *  COUNT  * 
ft  TRACK  *  WIDE  *  SPACE  *  STPT / 158*0/ 

po:nt  «  ioi 

DO  1  U  ~ 1 *  N 

1  READ(l'U)  Z»Z»ZrZtZ*BL<U)  *BU(U) 

CALL  SORT  <  PTLGH *  BL  *  STLGH  *  30 ) 

M  =  STLGH 
DO  2  K  =  1*N 
BOXLEN (K>  «  BL < M) 

BOXWTH(K)  =  BW(M) 

MBL(K)  =  BL  CM) 

MBW(K)  »  BW <  H ) 

2  M  «  PTLGH CM) 

SMALL  *  4 
A  a  N 


ft 
ft 
ft  ft 


)  * 
)  * 


CALL  NEWLST  <  N *  84  *  1 04  *  SPACE  *  BOXLEN  *  BOXWTH * SMALL  *  LBOX  * 


10 

1000 


ft  WBOX  *  TRACK  * WIDE *  N1  * TLBOX  * TWBOX * 

ft  MBL *  MBW *  COOR  *  PO I NT *  A  *  STPT ) 

IF(N.EO.O)  GO  TO  10 

CALL  PI LE2B ( BOXLEN  *  BOXWTH  r  84  *  N  *  LBOX * WBOX  r  TRACK  * 
ft  SMALL  * WIDE  *  MBL r  MBW *  COOR  *  POINT  *  A ) 

WRIT£(5* 1000  > 


FORMAT 
BO  3  S 


< // *  1 X  * '  LENGTH ' *  3X  * ' W I DTH ' *  3X * ' POS I T I ON '  *  / ) 


WRITE ( 5  * 2000 )  MBL  <  S ) *  MBW  <  S ) 


2000 

3 


4 


FORMAT (1 X  *  1 4  *  5X  *  1 4  *  5X  *  15 ) 

CONTINUE 

DO  4  T--1  *  A 

IF(MBLC.r>  .  GT  » 0 )  GO  TO  4 
TOTAL  »  TO T ALU 

AREA  =  AREAil AB3 ( MBL ( T)ftMBW ( T ) ) 
CONTINUE 

WRITE (5 *3000)  AREA* TOTAL 
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\%%%%%% 


THIS  SUBROUTINE  TAKE 
DIMENSION  LENGTL  ~  1 
L INF IT  ARE  USED  IN  IT 
WILL  FIT  ALONG  PSLLE 
LOADING  ANY  RDiSSMIN 
ROW  OF  BOXES  LOtiKB 
AND  NEWLST  ♦  LOCATION 
LOADED  BOX  IS  C0SPU1 
<  X  » Y )  »  STARTING  BETH 
PALLET  AS  (1*1).  WT 
COORDINATE  =  0.  8JTF 
LOADED  DOX  LENGTftf  N 
THE  LOADED  BOXES- 


S  'N'  BOXES  AND  LOADS  A  PALLET  OF  * 

04  BY  WIDTH  =  04.  SUBROUTINES  NEWLST/  * 
TALLY  TO  COMPUTE  ROl-KS)  OE  BOXES  THAT  % 
V  LENGTH.  PILE4  WILL  THE  CONTINUE  % 

S  BOXES  UNDER  EACH  BOX  IN  THE  LAST  % 

BY  NEWLST  *  BY  USING  SUBROUTINES  PILES  * 
OF  THE  UPPER  LEFT  CORNER  OF  EACH  * 


EB  BASED 


THE  COORDINATE 


THE  UPPER  LEFT  HAND  CORNER  OF  THE 
E*  BOXES  NOT  LOADED  WILL  HAVE  A 
UT  IS  THE  LIST  OF  'N '  BOXES  WITH 
EGATIOE t  ALONG  WITH  COORDINATES  OF 


0001 
0002 
00  OS 


0004 

0O05 
<  >6 
0  .  07 
0  000 
0007 
0010 
0011 
0012 
0013 
0014 
0015 
0014 
0017 
00  IB 


0019 

0021 

0022 

002S 

0024 

0025 

0024 

0027 

002 a 

0029 

0031 

0032 


%  X>  YYYYYYYYYYYY  *  Y  %  if  *  t  i-  &  7  %  %.  %  Y  %  %  Y  Y  %  Y  %  %  Y  Y  % 

SUBROUTINE  HANTS'- A ( N y AREA > 

IMPLICIT  INTESI  Y.2  <A~Z) 

DIMENSION  BOXCSF  (  30 )  y  BOXWTH  <30 )  y  BL  ( 30 )  ?  BU  (  30  )  r  F’TLGI-i  ( 

*  LGHC&  O)  yWTH(340)  7LBOX(30)  yWB0X(30>  yTLBOXC 

*  TWETE1  30 )  y  MEL  <  30  )  r  MBW  ( 30  >  t COOR  (  30 ) 

BATA  COOR  y  TLEf£>  •TWBOX  *  L.BOX  *  WBOX  y  STLGIT  y  N 1  y  TOTAL  r  COUNT 

*  TRACK  y  UIff.iT  SPACE  »STPT/ 158*0/ 

POINT  =101 

DO  1  U = 1 *N 

1  READ  ( 1 '  U )  Z  *  ZrS-Z  >•  Z  *  BL  ( IJ )  7  BU  ( U ) 

CALL  SORT  ( PT LON-L  L.  7  STLGH  y  30  > 

M  =  STLGII 
DO  2  K  =  1  7  N 
BOXLEN(K)  =  BLtvl 
DOXUTH(K)  =  BWft) 

MBL(K)  =  BL(M) 

MBW(I\)  =  BW(M> 

2  M  =  PTLGH(M) 

SMALL  =  4 

A  =  N 

CALL  NEWLST  <  N  7 1>  .7  04  7  SPACE  7  BOXLEN  *  DOXWTi !  7  SMALL  ,  LBOX  * 

*  m%f  TRACK  y  WIDE  7  N1 7  TLB  OX  7  TWBOX  7 

*  MBWtLMW  r  COOR  7  POINT  7  A  7  S 1  PT  ) 

IF(H.EO.O)  GO  m  3  0 

CALL  P I L E 4  (  BO VCEN  •*  BOXWTI !  7 104  7  N  7  LBOX  *  UBG  /  t  TRA C K  7 
Y  SMAvLv  W1 DE  7  MBL  7  MBW  y  COOR  7  POI N  I  7  A  7  STPT  ) 

10  WRITE (5 7 1000) 

1000  FORMAT  (//r  '  LBSTR-r  *3Xy  'WIDTH'  73X3  'POSITION'  7  /  > 

DO  3  S-=l  t  A 

MR  I  ( 5  7  2000 )  Mil.  C  S  )  7  MBW  ( S  >  t  COOR  ( S  > 

2000  FORM AT  (  1 X  7 1 4  » SS».  1 4'  *  r5X  7  15) 

3  CONTINUE 
BO  4  T=1 r  A 

IF  (MBL  (T)  *  GT  »0>  GC-  TO  4 
TOTAL  =  TOTAL-K:. 

AREA  «  ARE  Ail  <W3  (  MiDW  <  T  )  YHBL  <  T  )  ) 

4  CONTINUE 


»  ^ 

0034  WRITE <5r3000>  AREA* TOTAL 

0035  3000  FORMAT <  IX r  '  AREA  =  ' r 15 »5X» 'TOTAL  NO.  OF  DOXFS  =--  ',13) 

0036  RETURN 

0037  END 
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0001 

0002 

0003 


* 


C  %  %  *  ****  *  *************  *  %  %  %  %  *  *  *  *  *  %  $  *  %  %  %  %  U  *  *  A  ****  *  *  a  a  •;  •  •<  jjc  *  * ' 

C* 

C*  THIS  SUBROUTINE  STARTS  WITH  ' TRACK '  NUMBER  OF  BOXFS  * 

C*  WITH  LENGTHS y  LBOXO  AMD  UIDTIISy  WBOXO  THAT  WERE  * 

C*  IDENTIFIED  BY  NEWLST .  % 

C^«  THEN  t  AS  MANY  ADDITIONAL  BOXES  FROM  A  LIST  OF  'N'  * 

C*  BOXES  ARE  LOADED  BELOW  EACH  SUCCESSIVE  LBOXO,  * 

C*  * 

C  *  *  *  %  %  %  %  *  *  *  %  %  %  *  *  *  *  *  %  *  $  %  *  *  *  *  %  *******  *  %  *  *  *  *  A  A  *  *  *  *  *  *  A  *  *  %  *  *  A  * 

SUBROUTINE  FI LE2A  ( BOXLEN t BOXWTH y LENGTH y N y LBOX y UBOX y TRACK y 
*  SMALL  y  WIDE y MBL y  MBW y COOR y POINT  y  A ) 

IMPLICIT  INTEGER*2(A-Z> 

DIMENSION  BOXLEN (30) y BOXWTH (30) rLB0X(30> , WB0X(30) y 


*  COOR (30) y MBL (30) yMBW(30) 


0004 

SAVE  =  0 

V" 

0005 

START  =  0 

' 

>.*■ 

0006 

SWIBE  =  0 

| 

0007 

BPT  =  POINT 

C************************************************ ******** 

C* 

LOAD  ADDITIONAL  BOXES  BELOW  EACH  BOX  IN  LAST  ROW  * 

,  -  ** 

►O’ 

C* 

OF  LINFIT  BOXES.  .  * 

C**** ******************************************** ******** 

■?} 

1  *  i 

oooa 

BO  1  L=ly TRACK 

i 

0009 

IF(  ( WBOX ( L )  +WIDE )  . GT .SWIBE )  SWIBE  =  WBOX(L) -l-WIBE 

0011 

1  CONTINUE 

0012 

TT2  =  0 

;-n 

0013 

HO  21=1 y TRACK 

■\ 

>1 

0014 

POINT  ~  BPT 

0015 

TEMP  -  0 

1 

0016 

IF (I ,LE. START)  GO  TO  2 

■s 

0018 

NEWLEN  =  LBOX ( I ) 

0019 

NEWWTK  «  SWIDE-WBOX ( I ) 

5> 

0020 

IF (I. Ed. TRACK)  GO  TO  10 

a  . 

0022 

IP1  -  Ill 

. « 

\v 

0023 

DO  3  M  =  I Ply TRACK 

i 

0024 

IF  (  I ABS  (  WBOX  ( M  )  -  W.BOX(  I  >  )  .  GT  ♦  4  >  GO  TO  10 

0026 

NEWLEN  =  NEWLENTLBOX ( M ) 

»"> 

0027 

TT  =  MAXO ( WBOX ( M) y WBOX (M-l ) ) 

& 

0028 

TT2  =  MAXO (TT2yTT ) 

a:. 

0029 

START  =  M 

0030 

3 

CONTINUE 

m 

0031 

NEUWTH  =  SWIDE-TT2 

0032 

10 

SAVE  ~  SAVE+NEWLEN 

0033 

IF( I ♦ EO ♦ TRACK )  NEWLEN  -  NEWLEN } LENGTH- SAVE 

0035 

15 

MAX  “  0 

0036 

WMAX  “  0 

r.j 

0037 

TEMPT  =  0 

l« 

0038 

DO  4  K  =  1 y  N 

’  w  *, 

0039 

I F ( BOXLEN ( K ) . LT . 0 . OR . BOXLEN ( K  > , GT . NEWLEN , OR . BOXWTH ( K ) , GT . 

*  NEWWTH )  GO  TO  4 

1  *  s 

’P 

0041 

NFJWWTH  »  NEWWTH-BOXWTH(K) 

0042 

IF(NEWLEN-BOXLEN(K> ,LT .SMALL)  GO  TO  20 

■•V 

l*-. 

0044 

I F  ( ElOXLEN  (  K )  .  LT  .  MAX  )  GO  TO  25 

■© 

0046 

MAX  =  BOXLEN (K) 

53 


8 


S 


0047 

0048 

004? 


0050 

0051 

0053 


0056 

0057 

0058 

0059 

0060 

0061 

0062 

0064 

0065 

0066 

0067 

0068 

0069 

0071 

0072 

0073 


TEMPT  =  POINT  FIOO^MAX 
GO  TO  25 

20  WMAX  =  WMAXIBOXUTIKK) 

C#***#^##*#^#*#**^  'K  #  #  ********  *  *  *  *  *  * * *  *  *  %  *  * ****  *  *  $  *  *  *  j}c  * 

C*  ASSIGN  THE  UPPER  LEFT  CORNER  OF  ALL  LOADED  BOXES  A  * 

C*  COORDINATE  (XrY).  * 

25  DO  5  C  =  IrA 

IF (MBL(C) » LT ♦ 0 >  GO  TO  5 

IF (MULIC)  . NE.BOXLEN(K)  ♦OR.MBWCC)  ♦ NE . BOXWTH ( K >  )  GO  TO  5 
MBL ( C  >  =  -MBL(C) 

COOR(C)  =  POINT 
GO  TO  30 

5  CONTINUE 

30  POINT  =  POINTTBOXUTH  <K  > 

BOXLEN(K)  =  -DOXLEN ( K  > 

4  CONTINUE 

IF (MAX . EQ ♦ 0>  GO  TO  35 

POINT  =  TEMPT 

NEWLEN  =  NEWLEN-MAX 

NEWWTH  =  SWIDE~WBOX< I )-WMAX-TEhP 

TEMP  =  WMAX 

GO  TO  15 

35  IF< I *NE. TRACK)  DPT  =  BPTILBOXI I  K<100~UB0X< I H WBOX < I U > 

2  CONTINUE 

RETURN 
END 
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Vo 


pi^s 

3$ 
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0001 
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0004 
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0006 

0007 


0008 

0009 

0011 

0012 

0013 

0014 

0015 

0016 

0018 

0019 

0020 

0022 

0023 

0024 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0035 

0036 

0037 

0038 

0039 


0042 

0044 

0046 
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C* 

C* 

C* 

c* 

CSC 
C* 

CSc 

C  Sc  *  Sc  Sc  S<  Sc  *  Sc  *  *  *  #  Sc  Sc  Sc  *  Sc  Sc  Sc  Sc  Sc  Sc  Sc  Sc  Sc  *  *  *  *  *  &  >X  *  *  £  *  *  *  Sc  *  Sc  Sc  Sc  *  &  Sc  Sc  Sc  *  Sc  Sc  #  * 


THIS  SUBROUTINE  STARTS  WITH  7 TRACK '  NUMBER  OF  BOXf 
WITH  LENGTHS t  LBOXO  AND  WIDTHS >  WDOXO  THAT  WERE 
IDENTIFIED  BY  SUBROUTINE  Nf.WLST . 

THEN,  AS  MANY  ADDITIONAL  BOXES  FROM  A  LIST  OF  'N' 
BOXES  ARE  LOADED  BELOW  EACH  SUCCESSIVE  LBOXO. 


SUBROUTINE  PILE2B 


Sc 


IMPLICIT 

DIMENSION 

9 

v 

SAVE 


<  BOXLEN , BOXWTH , LENGTH , N , LBOX , WBOX , TRACK 
Sc  SMALL  ,  WIDE , MBL  y MBW  ,  COOR ,  POI NT  ,  A  > 

INTEGER*2<A-Z> 

S  BOXLEN ( 30 >  y BOXWTH (30)  ,LB0X(30)  y  WBOX (30)  y 
COOR (30) y MBL (30) y MBW (30) 

0 

START  =  0 

SWIDE  =  0 

BPT  =  POINT 

C  %  %  Sc  S<  Sc  Sc  $  Sc  Sc  Sc  *  *•  Sc  Sc  $  Sc  Sc  *  *  St  *  *.  *  Sc  Sc  #  Sc  *Sc  *  Sc  Sc  Sc  Sc  *  Sc  *  *  *  *  Sc  *  *  *  Sc  *  Sc  Sc  S'.  Sc  Sc  *  Sc :  jc  Sc  *  Sc  Sc 
CSc  LOAD  ADDITIONAL  BOXES  BELOW  EACH  BOX  IN  LAST  ROW  Sc 

CSc  OF  L  INF  IT  BOXES.  '  Sc 

C  Sc  Sc  Sc  Sc  Sc  Sc  Sc  Sc  Sc  ;)c -5c  S:  Sc  Sc  Sc  S<  Sc  *  Sc  >!c  Sc  :ic  S'- Sc  Sc  Sc  Sc  Sc  *  Sc  Sc  Sc  Sc  Sc  Sc  S«  Sc  Sc  Sc  Sc  Sc  Sc  Sc  Sc -H  Sc  S:  Sc  ;!c  Sc  Sc  Sc  Sc  ;{c  Sc  Sc  :K -ic 

DO  1  L=1 r TRACK 

IF(  (UBOX(L)I WIDE)  *GT .SWIDE)  SWIDE  «  WBOX(L  )  i WIDE 
1  CONTINUE 

TT2  =  0 

DO  21=  1, TRACK 
POINT  «  DPT 
TEMP  a  0 

IFd.LE, START)  GO  TO  2 
NEWLEN  «  LBOX(I) 

NEWWTU  =  SWIDE-WBOXd) 

IF(I.EQ. TRACK)  GO  TO  10 

IP1  »  III 

DO  3  M  =  IP1, TRACK 

IF(IABS(WB0X(M;-WH0X(I)).GT.4)  GO  TO  10 
NEWLEN  =  NEWLENiLDOX ( M  > 

TT  «  MAXO ( WBOX ( M  >  y  WBOX ( M-i > ) 

TT2  «  MAX0(TT2yTT) 

START  a  M 

3  CONTINUE 

NEWWTU  a  SWIDE ™TT2 

10  SAVE  a  SAVE-}  NEWLEN 

IF (I .EG .TRACK)  NEWLEN  «  NEWLEN1 LENGTH-SAVE 
15  MAX  »  0 

WMAX  a  0 

TEMPT  a  0 
DO  4  K  a  i,N 

I F ( BOXLEN ( K ) ♦ LT . 0 . OR . BOXWTH ( K ) . GT . NEWLEN . OR . BOXLEN ( K ) . GT . 
*  NEWWTH )  GO  TO  4 
NEWWTU  a  NEWUTH-BOXLEN(K) 

IF (NEWLEN-BOXWTII(K)  .LT .SMALL)  GO  TO  20 
IF( BOXWTH (K ) ♦ LT , MAX)  GO  TO  25 
MAX  =  DOXWTH(K) 


0047 

0040 

004? 


0050 

0051 

0053 

0055 

0056 

0057 

0050 

0059 

0060 

0061 

0062 

0064 

0065 

0064 

0067 

0060 

006? 

0071 

0072 

0073 


TEMPT  =  P0INTH00*MAX 
GO  TO  25 

20  UMAX  =  UMAX4  BOXLEN (  K  > 

C*  ASSIGN  THE  UPPER  LEFT  CORNER  OF  ALL  LOADED  BOXES  A 
C*  COORDINATE  <XrY>« 

25  DO  5  C  =  lvA 

IF (MBL(C> . LT»0>  CO  TO  5 

IF (MBL< C >  »NE«BOXLEN(K >  »0R«  MBW  CC) * NE ♦ BOXWTH (K ) )  GO  TO  5 
MBL(C>  =  ~MBL(C> 

CODR(C)  =  POINT 
GO  TO  30 
5  CONTINUE 

30  POINT  =  POINTIBOXLEN(K) 

BOXLEN(K)  =  --BQXLEN  ( K  >  ! 

4  CONTINUE 

IF(MAX4EQ.0>  GO  TO  35 

POINT  =  TEMPT 

NEULEN  =  NEULEN--MAX 

NEWWTH  =  SWIDE-UBOXa  > -UMAX -TEMP 

TEMP  =  UMAX 

GO  TO  15 

35  ira.NE.  TRACK)  BPT  =  DPT  f  LBGX  ( I  >*100-WB0X<  I )  HJBCX  (III) 

2  CONTINUE 

RETURN 
END 


wn 


VV^Ws1' 


it  it  it  « 


0001 


0003 

000? 

0011 

0012 

0013 

0014 


0017 

CC1G 

001? 

0021 

0022 

0023 

00215 

0026 

002? 

0023 

002? 

0030 

CC31 

CC32 

0034 

0035 

0036 

003? 


NUMfcro 


C* 

THIS  SUBROUTINE  STARTS  WITH  'TRACK' 
WITH  LENGTHS /  BCXl  O  AND  WIDTHS/  BOXWO 
IDENTIFIED  BY  SUB.  OUTINE  PILE4 , 

THEN i-  AS  MANY  ADDITIONAL  BOXES  FROM  A 
BOXES  ARE  LOADED  BELOW  EACH  SUCCESSIVE 


C* 

C« 

CX 

Cyt* 

c* 

c# 


i-K  Cf  BOXES/ 

that  were 


* 

* 

* 

* 


.1ST  or 

""'XL  (  > 


'N3' 


Bo /^i. 


/TH/ LENGTH /; 


0002 

0003 


TRACK / SMALL / WIDE /POINT / MBL , 


0004 

0005 

0006 

0007 


SUBROUTINE  PILE3  (nnyi  nj.nn-i.mu 

* 

IMPLICIT  INTEGERS <A-Z> 

DIMENSION  BOXL.EN < 30 >  / BGXWTM <  30  )  / BOXL <  30  )  / BCXW <30  / 
*  MBL  <30) /MBW<30) /CCGR<30) 

=  0 

=  o  ; 

=  0 


SAVE 


C34#***#******#:)4*:j4;J4:S4**#****2***#****5K;i4****l4***:{:****:f::}: 
C*  LOAD  ADDITIONAL  BOXES  BELOW  EACH  BOX  IN  LAST  ROW  * 

r**  nc  t  tW’t  r.ovcc 

U'P  Ul  L-  1  ill  JL  •  |1>UAUJ 


Ot  nHTr.r ' 

I  ♦  U*  X  XJU*  / 


M  r.nvii/- 


CONTINUE 
TT2  =  0 

DO  2  I  =  1/ TRACK 
TEMP  «  0 


IF  <  I 

♦  LE. 

O'**  Ar.T 

x->  •  f“»»\  « 

) 

GO  TO 

2 

NEWL 

EN  « 

DOXL 

/ 

\ 

I) 

NEWU 

TM  = 

d  •  J  rr.r 
O  W  x  x-'L. 

•-B0XW  ( 

I) 

IF  <  I 

*E0  ♦ 

TRACK 

\ 

/ 

GO  TO 

10 

I  PI 

ss 

I  M 

DC  3 

M  = 

IP1» 

*r 

i 

RACK 

IF< IASS' 

r»nvi  i  / 

tK>AW  % 

M 

) -BOXW 

<  I ) ) 

NEWLEN  = 

NEWL 

EN1B0XL 

<M) 

TT  = 

MAX 

0  <  BOX 

U 

<M) /BO 

XU  ( M 

GO  TO  10 


TT2  ~ 


o 


TART  = 


MAX0<TT2/TT) 
M 


CONTINUE 
NEWWTH  = 


r:','TriT"  ~'r  t  *■> 

O  w  J.  ju'  u.1  1 


10 


IF <I.E0. TRACK) 
MAX  =  0 

UMAX  =  0 

DO  4  K  *  1/N3 


NEWLEN {LENGTH 


.Lit  \  i\  . 

NEWWTH)  CO 


T  A  OO  r.nvi  iti  |  /  {.'■  N  o "i 
i  ♦\/»uf\»».,UA'4nhlw  *0  i 

rn  a 


i-uN  *  uis  ♦  \  »\  }  ♦  L)  i  « 


«•  a 


>  .**1 


25  BOXLEN  <  K )  =  ~BOXLEN<K> 

C *  assign  THE  UPPER  LEFT  CORNER  OF  ALL  LOADED  BOXES  A 
C*  COORDINATE  <X,Y>. 


0013 

DC  5  R=1 r A 

004? 

IF (MBL<R>  ,LT«C>  GO  TO  5 

0051 

I F ( HBL ( R  > . NE ♦ -BOXLEN <K> .OR. MBU * 

0053 

MBL  <R  >  =  -MDL(R> 

0054 

COOR(R>  =  POINT 

0055 

GO  TO  30 

0056 

cr 

VJ 

CONTINUE 

0057 

30 

POINT  =  POINT  M 003c --BOXLEN (t\> 

0053 

4 

CONTINUE 

0059 

IF <MAX ♦ EG ♦ 0)  00  TO  2 

0061 

NEWLEN  =  NEWLEN-NAX 

0062 

NEWWTH  -•  WIDTH  -BCXU<  I )  -WMAX-  TEi' 

0063 

TEMP  =  UMAX 

0064 

GO  TO  15 

0065 

**> 

Jm. 

CONTINUE 

0066 

RETURN 

0067 

END 
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THIS 

WITH 

THEN 

THAT 

THIS 


SUBROUTINE  STARTS 


WITH 


NUMBER  OF 


LENGTHS 


’  BOXLEN ' 


LOAD  z  FROM  THIS  GROUP  OF  BOXES/ 
WERE  IDENTIFIED  DY  NEWLST. 
LOADING  WILL  TAKE  PLACE  WITH  THE 
NEWLST  AND  PILE3 * 


-V  'V  *V  »V  *y  vV  'V  sV  Oy  *4/  'V  U/  sir  »iy  %i>  »i/  >v  sly  *V  *l»  'V  'V  'V  'V  'V  'V  '**  '•/  «V  sU  si/  'V  '*/ 

U  V  'i‘  T  'P  'I'  'P  /|^ /|\ /(\ /|\  ;p  /J\  /{V  /[\  A  /T  /p  T'  /J*  'J*  'f.  /f*  '*S  /,\  »r  zp  *,v  »,s  ,\  /<»  »/.  .j»  /{V  /.-V  >j>  /p 

OOOl  SUBROUTINE  PILE*. < BOXLEN z BOXUTH / LENGTH / N 

*  SMALL z UI BE zMBL/MBUz COO 

0002  IMPLICIT  INTE  Jr:R*2(A~2') 

0003  DIMENSION  BOXLEN (30) zBQXUTH(30) zLBCX(30 

*  DOXW (  30  >  z  TLBOX ( 30  >  z MBO 

*  TUBOX  ( 30  >  /  MEiL  ( 30  >  z  MBW( 

0004  DATA  SWIBEzSUBTOT  r SAVE r START zNl zMHzNN/T 

0005  TWIDTH  =  WIDE 

0006  DO  1  M=lzN 

0007  MDOXL(M)  =  BOXLEN (M> 

0000  1  MBOXWCM)  =  DOXWTIKM) 

0009  STPT2  =  STPT 

0010  DO  2  M=1 /NEXT 

0011  IF <  <  WBOX (M>  4WIDE > . GT . GUIDE  >  SWIDE=WB0X(M)1WIDE 

0013  2  CONTINUE 

0014  DO  3  I  =  1 /NEXT 

0015  N1  =  0 

0016  IF (I. LE. START)  GO  TO  3 

0010  TLENTII  ---  LBOX(I) 

0019  TWIDTH  =-•  GUIDE- WBOX  ( I  ) 

0020  IF (I. EG, NEXT)  GO  TO  10 

0022  IP1  «  I 41 

0023  DO  4  J  =  IPlzNCXT 

0024  IF ( IADS < WBOX ( J ) -WBOX ( I ) ) . GT ♦ 4 )  GO  TO  10 

0026  TLENTI  I  «  TLENTI I4LB0X  ( J  ) 

0027  TT  =  MAXO( WBOX( J) zWBOX( J-l ) ) 

0020  TT2  *  MAX0(TT2»TT) 


\1/  si/  \b  S  V  sJ 

•  i  •  r ■  'A  a*  'i 

/LBO) 
R  /  PC : 


%t/  \D  sir  lV  'V  •('  '  /  '/ 

*u* f-.-'i'  '{•  <• 

$ 

sir 

‘P 

WILL  * 

pnvr'n  \l* 
L'U/S’w  J  'P 

* 

BROUT-  :!< 


ly  sty  sly  sly  dr  sly  sl»  sly 
I'  T  T  'I'  4'  'I'  -P  'P 

JBOX / NEXT/ 
r»A/CTPT) 


)  t WBOX ( 30  > z BOXL ( 30 ) . 
XL  <  30 ) y MBCXW ( 30 )  z 
30) /C0CR(30> 

T2/S*0/ 


0029  4  START  =  J 

0030  TWIDTH  =  SWIDE-TT2 

0031  10  SAVE  -  SAVE  !  TLENTI  I 

0032  IF  ( I  ♦  EG  ♦  NEXT )  TLENTII  =  TLENTIU  LENGTH -SAVE 

0034  DO  5  K  =  1/30 

0035  TLBOX (K)  =  0 

0036  TWBOX(K)  =  0 

0037  BOXL(K)  “  0 

0030  5  BOXW(K)  ~  0 

0039  SPACE  »  0 

0040  TWIDE  =  0 

0041  COUNT  =  0 

0042  CALL  NEWLST ( N z TLENTII z TWIDTH » SPACE z BOXLEN z DOXWTH z SMALL z BOXL z 

*  BOXW  z  COUNT  z  TWIDE  zlllz  TLBOX  r TUBOX  z  MBL  zMDW  z  COOR  z 

*  POINT  z  A  zSTPT ) 

I F ( N ♦ EG ♦ 0 )  RETURN 
IF (COUNT «EG»0)  GO  TO  15 


0043 

0045 


CALL  PILE3 ( BOXLEN » DOXUTM y TLENTH , N 2 y BOXl. r BOXW r 

COUNT  y SMALL y  TUIBE » POINT  y MBL > MBW » COOR y  A ) 

GO  TO  20 

BOXL(l)  =  LBOX(I) 

B0XU<1>  =  IJBOX ( I  > 

CALL  PI LE3  ( BQXLEN  y  BOXMTII y  TLENTI-I  y  N2  y  BOXL  y  BOXl)  y 
1 y SMALL  y  TUI DC  y  PO IN  T  y MBL  y MBU y COOR y  A ) 

IF < I ♦ EQ . NEXT >  RETURN 

CALL  REGRP  ( BOXLEN  y  BOXWTH y M  XL  y HBOXU  r  TLBOX y TWBOX  7 
NyNl yN2) 

IF ( ( Ill > ♦ LE ♦ NEXT  >  POINT  =  STPT2+UB0XC I-H  > 

IF  (  (I’M  )  *LE*NEXT  .AND.  (Ill  )  .NE»2>  STPT2  =  STPT2+  1  OOXLBOX  (I  + 1 ) 

CONTINUE 

RETURN 

END 
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0013 

0015 

0016 

0017 
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0020 
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0022 
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0023 

0026 

0027 

0028 
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0032 

0033 
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0036 


0038 

0039 

0041 

0042 

0043 

0044 

0046 

0047 

0040 

0049 

0050 
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C# 

e* 

c* 

C* 

C* 

C* 


THIS  ROUTINE  TAKES  A  L 


OF  NUMBERS  -LIST"  OF 


“AMT*  AND  CREATES  A  POINTER  WHICH  ORDERS  THE 
LARGEST  TO  SMALLEST ♦  THIS  POINTER 
VECTOR  “POINT*  ALONG  WITH  THE 


LENGTH 

•r- 


r  ROM 


IS  RETURNED  IN  THE 

POSITION  “START1 


* 

* 
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0 


SUBROUTINE  SORT (POINT > LIST y START , AMT ) 
IMPLICIT  INTEGERS  (A~Z> 


DIMENSION  POINT ( AMT ) ,LIST(AMT) 


LAST  = 


0 

0 

0 

0 


NEXT 
AGAIN 
TEMP 
DO  2  I  =  1 r AMT 
IF (POINT ( I ) «NC  *0  > 

IF (LIST ( I )  ♦LE.TEMP  > 
IF(LISTd)  .EQ*  AGAIN) 
TEMP  =  LIST ( I ) 

NEXT  =  I 
CONTINUE 

IF (LAST ♦EQ*0)  GO  TO  3 


GO 

GO 

GO 


TO  2 
TO  2 
TO  2 


POINT (LAST)  =  NEXT 


LAST  =  NEXT 

IF(NEXT.NE.AMT)  GO  TO  A 

BEGIN  =  NEXT 

GO  TO  5 

BEGIN  =  NEXT 11 

BO  6  K  =  BEGIN* AMT 

IF(LIST(K) .NE.LIST(LAST))  GO  TO  6 

POINT (LAST)  =  K 

LAST  =  K 

CONTINUE 

AGAIN  =  TEMP- 

COUNT  =  0 

DO  7  J  «  1 t AMT 

IF(POINT( J) . NE*0)  CO  TO  7 

COUNT  =  COUNTS-1 

I F ( COUNT » GE ♦ 2 )  GO  TO  1 

CONTINUE 

TOP  =  0 

DO  0  M  «  1 *  AMT 
IF  (LIST(M) *LE»T0P)  GO  TO 
START  =  M 
TOP  *  LIST ( M ) 

CONTINUE 
RETURN 
END 
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61 


OOOi 


0002 


0004 

0005 

0006 

0000 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0010 

0019 

0021 

0023 

0024 

0025 

0026 

0027 

002C 

0029 

0030 

0032 

0033 

0034 

0035 

0036 

0037 

0039 

0041 

0042 

0043 

0045 

0046 

0047 

0040 

0050 

0051 
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C*  % 

C3  NEULST  BEGINS  WITH  'N'  BOXES  OF  LENGTH  BOXLEN <>  AND  * 

C*  RUNS  SUCCESSIVE  LINFIT  SUBROUTINES  ALONG  THE  LINEAR  * 

C*  DISTANCE  'LENGTH "  .  IT  RETURNS  LOADED  BOXES  WITH  * 

C*  THEIR  EOXLEN  VALUES  NEGATIVE.  * 

C*  % 

C  >!«#£**  *  *****  *  *  %  *  *  *  %  t  *  *  *-  t-  *  *  *  A  *  *  *  *  $ *  f.  *  $  *  *  $  *  *  £  *  *  £££  *  #  * 

SUDROUT I NE  NEULST ( N y LENGTH v U I DTH y  SPACE  y BOXLEN y BOXUT I!  y 

*  SMALLy  L.E:OX  y  WDOX y  TRACK y  WIDE y N 1  y  TLBOX  y 

*  TUBOX y  MBL y  MBW y  COOR y  POINT  y A  y  STPT ) 

IMPLICIT  INTEGERt-2  <A-Z> 

DIMENSION  BOXLEN  ( 30 >  y  E*OXWTH  ( 30 )  rLBOX  ( 30 )  y  WDOX  ( 30  )  y  l.LBOX  ( 30 )  y 

*  WWDOX  ( 30  )  y  TLBOX  (  30  >  y  MBL  ( 30 )  r  MBU  ( 30  )  vCOORCSO)  y 

*  TUBOX ( 30 ) 

NEWUTH  «  l  CDTH 

10  DO  1  K=1 y  N 

I F <  BOXLEN ( K ) . LT * 0 ) GO  TO  1 
IF (BOXUTIKK) . LE.NEUUTM)  GO  TO  1 
BOXUTN(K)  =  -BOXWTIKK) 

BOXLEN (K)  «  -BOXLEN(K) 

1  CONTINUE 
SPACE  b  o 

CALL  L I NF I T  <  N  y  LENGTH  y  SPACE  y  BOXLEN  ) 

COUNT  =  0 
TRACK  =  0 
NUN  »  0 
BO  2  L“1 y  N 

IF  <  BOXLEN (L>  .  LT .  0  ♦  AND  .BOXUTIKL  >  .  LT  .  0  >  GO  TO  2 

IF (BOXLEN (L).GT.O)  GO  TO  15 

TRACK  ==  TRACK:!  1 

LBOX< TRACK)  =  -BOXLEN (L) 

WBOX< TRACK)  =  IABS (BOXUTIKL ) ) 

N1  =  N1T1 

TLBOX(Nl)  =  -BOXLEN(L) 

TWBOX(Nl)  =  IABS  (BOXUTIKL)  ) 

GO  TO  2 

15  IF ( BOXWTH ( L ) ♦ LT . 0 )  GO  TO  2 
NUM  =  NUMH 

LLBOX(NUM)  -  BOXLEN (L) 

WUBOX(NUM)  =  BOXUTIKL) 

2  CONTINUE 
N  =»  NUM 

IF (TRACK. EG. 0)  RETURN 
IF (NIJM.EQ ♦  0)  RETURN 
NEWLEN  “  LBOX(l) 

WIDE  «  NEWUTH 

IF < TRACK ♦ EO . 1 )  GO  TO  25 

BIFF  =  0 

SDIFF  b  0 

BO  3  M-2  y TRACK 

I F ( ( WDOX ( M ) -WBOX ( 1 ) ) ♦ LT .SDIFF • AND ♦ M ♦ NE . 2 )  GO  TO  11 
NEWUTH  =  WIBE-MAXO(UDOX(M)yWBOXa>) 

SDIFF  b  WBOX ( M ) -WBOX ( 1 ) 


777VF*\'fjrA-jv *;?> »>  .■>  .■> a.^'.  * . 


.‘•Vi 


1*  « 

0052 

11 

NEWLEN  =  NEWLEN  TLBOXOi) 

0053 

IF<  IADS  ( WDOX  <  M )  -  UDOX  d  )  )  .GT.DIFF)  D  IFF=I  ADC  ( W;:H 

0055 

3 

CONTINUE 

0056 

WIDE  =--  NEWWTII 

0057 

GO  TO  30 

0050 

25 

NEWLEN  =  LENGTH 

0059 

NEWUTH  =  NEWUTH -UBOXd) 

0060 

WIDE  =  NEWWTII 

0061 

30 

HO  4  P-i y N 

0062 

BOXLEN(P)  =  LLBOX(P> 

0063 

4 

BOXWTIKP)  =  WUDOX(P) 

0064 

TPT  =  POINT 

-WB0XC1 )  ) 
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C*  ASSIGN  THE  UPPER  LEFT  CORNER  OF  ALL  LOADED  BOXES  A 
C*  COORDINATE  <XrY>» 
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L/  /»>  o'  <p  ^  'T  ^ 'i'  ^  v  »r 't'  'n  'i'  'i1  4*  *i4  'i4  ':4  T4 'P  *i»  4*  'P  'i4  --p  ^  'p  'r  'n4  t 'I'  n  *p  *p  >p  'p  *p  *r  'A  u*  '*»  'p  -»  4*  -■« •  v  »p  'j ■  <-,»  »r*  'j»  'p 

0065  DO  5  0^1  V  TRACK 

0066  DO  6  B~1 v A 

0067  IF<flBL<B)  .LT*0>  GO  TO  6 

0069  IF<MDL(B) ♦NE.LDOX(Q) ♦OR.MBW(D) *NE»WB0X(0> >  GO  TO  6 

0071  MBL(B)  =  -MBL(B) 

0072  COOR(B)  =  POINT 

0073  GO  TO  35 

0074  6  CONTINUE 

0075  35  POINT  ==  POINT-}  100*LB0X(Q> 

0076  5  CONTINUE 

0077  POINT  =  TPTIWBOXd) 

0078  IF  (  SB  IFF  « GE  .  0  )  POINT  *=  POINT  }  I ABS  ( SDIFF  > 

0080  STPT  =  P0INT"WB0XdH100*LB0Xd> 

0081.  IF<DIFF  «CT  .4)  GO  TO  45 

0033  I F  (  LENGTH-  NEWLEN * GT  .  SMALL  .  OR  *  NEWUTH  .  LT  ,  SMAL.L  > 

0085  NEWLEN  =  LENGTH 

0086  GO  TO  10 

0087  45  RETURN 

0080  END 
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0001 


0002 

0003 


0004 

0005 

0006 

0007 

0008 

0010 

0011 

0012 


0013 


0015 

0017 

0018 

0019 

0020 

0021 

0023 

0024 

0025 

0027 

0028 

0029 

0030 

0031 

0032 

0034 

0035 

0036 

0037 


0039 
0040 
0041 
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0044 
0045 
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0047 


THIS  SUBROUTINE  IS  USED  IN  CDNJUNE 
PILE4 .  THIS  SUBROUTINE  WILL  TAKE 


TION  l.1  ITU 


BOXES  IDEM 


BY  TLDOX  AND  TMBOX>  WHICH  HAVE  ALREADY  BEEN  LOADED 
DELETE  THEN  FROM  THE  ORIGINAL  LIST  OF  'll'  BOXES. 
RETURN  THE  NEW  LIST  OF  BOXES  AS  DOXLEN  AN  BOX  MTU  , 
CAN  THEN  BE  USED  TO  CONTINUE  LOADING  THE  PALLET. 


AND 
riFIE 
r  AND 
IT  WI 

which 


EL  * 


c  **********  *  *  *  *  *  *  *  #  *  *  *  *  *  *  ******  *  *  *  *  *  ******  *  *  *  *  *  *  *  *  *  * 

SUBROUTINE  REGRP ( DOXLEN  7 BOXUTH r MBOXL r HDOXW 7  TLBO 
*  N»NlrH2> 

IMPLICIT  INTEGER* 2 ( A-Z ) 

DIMENSION  DOXLEN (  30 )  ■/  BOXWTH  <  30  >  t MDOXL  ( 30 )  >  HDOXW 


NN  ® 
MM  - 
BO  1 
BO  2 


TLDOX ( 30  >  v TWBGX  <  30 ) r TL ( 30 ) j TU ( 30 ) t TIE 

0 

0 

P=l7Nl 
Q=1 7  N 


<  30 )  7 
(30)  r 


TTU  ( 30 ) 


IF ( MBOXL ( Q ) . NE . TLDOX ( P ) . AND . MDOXW ( 0 > ♦ NE . TWDO) 


')  )  GO  TO  2 


MBOXL (Q)  =  -MBOXL (Q) 

GO  TO  1 
CONTINUE 
CONTINUE 
DO  3  R — 1 7  N 

IF  (MDOXL.  (R>  .LT.O)  GO  TO  3 

NN  =  NNT1 

TL(NN)  =  MBOXL (R) 

TU(NN)  -  MBOXW(R) 

CONTINUE 

IF ( N2 , EQ ♦ 0 )  GO  TO  10 
DO  4  S=1»N2 
DO  5  T~1 7  MM 

I F ( TL  <  T  > . NE . -DOXLEN ( S ) )  GO  TO 
TL(T)  a  -TL.  ( T  ) 

GO  TO  4 

CONTINUE 

CONTINUE 

BO  6  U  =  1 v  NN 

IF ( TL ( U ) .LT.O)  GO  TO  6 

MM  a  MM-fl 

TTU  MM)  =  TL  ( U ) 

TTW(MM)  =  TW(U) 

CONTINUE 


BO  7  V=1 r  MM 
DOXLEN (V)  = 
BOXWTH <V>  a 
MBOXL (V)  “ 

MDOXW (V)  a 
N-MM 
N2  a  MM 
GO  TO  15 
DO  0  W= 1 7  N N 
DOXLEN ( U >  = 


TTE(V) 
T1W( V ) 
TTL(V) 
TTU(V) 


TTL(W) 


W5W 


